Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1167 1763 (N55W16 L=137)   499     97        1 (1126/1730-1217/1780)   0.0 W11-W21 N51-N56
      2  539 1450 (N30E36 L= 85)  1198    255        3 ( 458/1364- 630/1519) -29.1 E45-E27 N24-N34
      3 1342 1441 (N29W23 L=144)   892    194        1 (1253/1415-1433/1460)  -8.7 W16-W29 N27-N30
      4  898 1232 (N16E08 L=113)   200     34        1 ( 879/1207- 922/1255) -90.0 E09-E06 N14-N17
      5 1327 1104 (N08W19 L=140)   325     97        0 (1283/1071-1361/1138) -38.7 W16-W21 N06-N10
      6  246  959 (S02E56 L= 66)   426     63        0 ( 232/ 920- 265/ 990) -76.0 E57-E53 S04-N00
      7  701  917 (S03E20 L=101)   444    152        2 ( 631/ 878- 752/ 970)  29.7 E24-E16 S05-N00
      8 1260  865 (S06W15 L=136)   240     72        0 (1225/ 833-1283/ 891) -53.1 W12-W16 S08-S04
      9  243  836 (S09E57 L= 64)   528    104        0 ( 201/ 801- 276/ 877)  26.6 E63-E53 S11-S06
     10 1740  617 (S24W56 L=177)  1742    276        2 (1711/ 493-1787/ 731) -54.8 W53-W66 S33-S16
     11 1581  607 (S24W40 L=162)   585    139        0 (1536/ 546-1623/ 660)  60.3 W37-W42 S27-S20
     12 1128  605 (S23W07 L=128)   383    141        0 (1058/ 588-1193/ 622)   6.3 W02-W11 S24-S21
     13  863  389 (S39E13 L=109)  1252    221        3 ( 778/ 338- 948/ 467)  35.5 E20-E05 S43-S32
     14 1075  200 (S58W06 L=127)   555     73        1 (1037/ 177-1105/ 226) -20.6 W01-W09 S60-S54
  

    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