Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1368 1387 (N21W30 L=195)   579    192        0 (1266/1364-1444/1408) -24.4 W23-W35 N18-N24
      2 1588 1214 (N06W40 L=205)   296     38        2 (1568/1193-1613/1235) -33.7 W37-W41 N04-N07
      3 1565 1151 (N03W36 L=202)   247     70        1 (1543/1116-1586/1177)  36.9 W34-W38 N01-N04
      4 1710 1029 (S07W45 L=210)   294     66        0 (1698/ 996-1721/1067)  63.4 W43-W46 S09-S05
      5 1611  986 (S07W36 L=202)   616    164        0 (1568/ 916-1652/1059) -68.2 W34-W38 S12-S02
      6 1822  927 (S17W55 L=220)  1159    170        3 (1778/ 840-1850/ 998)  71.6 W49-W58 S21-S12
      7 1480  777 (S17W24 L=189)   531    184        1 (1443/ 698-1498/ 867)  63.4 W20-W26 S21-S11
      8 1073  820 (S06E01 L=165)   265    143        0 (1025/ 776-1120/ 858)  26.6 E04-W02 S08-S04
      9 1253  696 (S17W08 L=173)   429    199        1 (1181/ 663-1312/ 756)  18.4 W03-W12 S18-S14
     10 1678  579 (S36W41 L=206)  1784    346        2 (1624/ 485-1733/ 718)  65.0 W36-W51 S43-S27
     11  362  533 (S14E59 L=107)  1401    238        5 ( 333/ 448- 405/ 635)  69.0 E66-E54 S19-S06
     12 1187  418 (S35E02 L=164)  3270    522       10 (1020/ 268-1324/ 570)  29.7 E18-W10 S44-S25
     13  583  551 (S15E38 L=127)   430    146        0 ( 514/ 537- 657/ 560) -10.3 E43-E32 S15-S13
     14  991  263 (S44E22 L=143)   476     64        0 ( 952/ 236-1023/ 290) -45.0 E24-E19 S46-S40
  

    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