Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  767 1784 (N44E42 L=210)   669     74        2 ( 740/1750- 794/1824) -28.6 E47-E36 N41-N47
      2 1362 1779 (N59W14 L=266)   394     65        2 (1318/1763-1393/1789)   6.3 W09-W18 N57-N61
      3 1663 1513 (N42W44 L=295)   502     65        1 (1623/1492-1702/1532)   0.0 W39-W49 N40-N43
      4  914 1286 (N13E11 L=240)   834    251        5 ( 833/1238- 992/1320)  33.7 E16-E06 N09-N16
      5  653 1234 (N05E26 L=225)   352    113        0 ( 645/1178- 663/1303) -66.8 E27-E24 N02-N09
      6  876 1214 (N08E12 L=239)   578    136        3 ( 817/1171- 935/1256)  -7.1 E16-E08 N05-N09
      7  892  873 (S12E05 L=246)  1127    382        1 ( 826/ 723- 984/1032)  79.2 E07-E02 S21-N00
      8  148  955 (S19E68 L=184)   555     65        0 ( 128/ 923- 164/ 990)  51.3 E71-E65 S21-S16
      9 1041  806 (S13W05 L=256)   212     52        1 (1016/ 787-1065/ 823)   0.0 W03-W06 S14-S12
     10 1347  701 (S14W26 L=277)   451    122        0 (1284/ 664-1399/ 735)  -7.1 W21-W29 S15-S13
     11 1115  648 (S22W12 L=264)   287     89        0 (1075/ 626-1164/ 669)  31.0 W10-W15 S23-S19
     12 1159  481 (S32W20 L=272)   256     83        0 (1120/ 467-1202/ 496)  31.0 W17-W22 S33-S29
     13  452  391 (S55E44 L=207)  1946    215        1 ( 381/ 328- 530/ 458) -26.6 E55-E33 S59-S49
  

    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