Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  710 1848 (N36E54 L=169)   654    166        0 ( 693/1814- 728/1884) -31.0 E59-E49 N33-N39
      2  588 1300 (S02E33 L=190)   255     82        0 ( 561/1279- 628/1332)   0.0 E35-E30 S03-N00
      3  924 1276 (N05E12 L=210)   367    115        0 ( 858/1250- 985/1297)  14.0 E16-E08 N03-N05
      4  352 1160 (S15E46 L=177)   556    107        1 ( 310/1115- 397/1198)  50.2 E48-E42 S18-S12
      5 1841 1158 (N27W51 L=273)   443     70        1 (1819/1132-1863/1183) -26.6 W48-W53 N25-N28
      6 1684 1098 (N18W38 L=260)   273     58        0 (1662/1062-1703/1133) -36.9 W35-W40 N15-N19
      7 1561  996 (N08W32 L=254)   848    187        0 (1504/ 915-1621/1079) -31.0 W25-W37 N04-N11
      8  470  998 (S22E33 L=189)   258     99        1 ( 442/ 966- 504/1048) -33.7 E36-E30 S23-S19
      9 1878  895 (N14W62 L=285)  3370    374        5 (1843/ 726-1904/1041) -59.5 W53-W71 N04-N22
     10  678  927 (S21E17 L=205)   234     73        0 ( 640/ 915- 722/ 939)  18.4 E20-E14 S21-S19
     11  334  746 (S41E41 L=181)  1087    334        2 ( 240/ 719- 453/ 772)  15.9 E51-E30 S44-S36
     12  932  639 (S30W06 L=229)   582    282        1 ( 789/ 606-1069/ 700)  12.5 E04-W14 S31-S26
     13 1334  598 (S20W32 L=254)   287    116        0 (1280/ 579-1388/ 627)   7.1 W27-W35 S21-S18
     14  792  444 (S47W05 L=227)   362     47        0 ( 762/ 419- 820/ 467)   0.0 W01-W07 S48-S45
  

    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