Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  444 1300 (N37E33 L=343)   280     97        0 ( 412/1263- 486/1335)  20.6 E36-E28 N35-N38
      2  670 1232 (N27E16 L=360)   309    102        1 ( 613/1218- 719/1251) -20.6 E20-E12 N25-N29
      3 1177 1110 (N08W11 L= 27)   359     85        1 (1149/1072-1207/1154)  31.0 W08-W13 N05-N09
      4  189 1033 (N25E62 L=315)  2038    213        3 ( 115/ 967- 272/1111) -22.2 E75-E52 N20-N30
      5 1324  841 (S11W12 L= 28)   195    103        0 (1303/ 794-1342/ 884)  45.0 W09-W14 S13-S08
      6 1142  783 (S09W00 L= 17)   213    107        0 (1102/ 750-1191/ 817)  11.3 E02-W03 S10-S08
      7 1119  646 (S17E04 L= 12)   319    142        0 (1062/ 617-1158/ 692)   0.0 E07-E01 S18-S14
      8  757  592 (S11E27 L=349)   626    193        1 ( 703/ 522- 800/ 682)  32.5 E32-E21 S14-S06
      9  600  377 (S21E48 L=329)  4658    689       15 ( 421/ 127- 783/ 555)  71.6 E64-E36 S46-S07
     10 1444  456 (S40W12 L= 28)   359     32        2 (1421/ 432-1468/ 483)  45.0 W09-W13 S41-S37
     11 1234  297 (S45E09 L=  7)   676    159        4 (1168/ 254-1305/ 347)   8.1 E16-E02 S46-S42
     12 1178  152 (S58E26 L=350)   502     42        0 (1151/ 136-1208/ 166) -53.1 E29-E23 S60-S55
     13 1063  135 (S55E38 L=339)   925     95        2 (1019/ 114-1110/ 160)  82.9 E42-E32 S59-S50
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y