Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1317 1654 (N32W41 L=102)   605    173        0 (1253/1607-1385/1684)  -4.8 W34-W46 N30-N33
      2 1397 1476 (N20W36 L= 97)   244     49        0 (1378/1453-1416/1508)  14.0 W34-W38 N18-N21
      3 1268 1283 (N13W21 L= 82)   239    105        0 (1213/1265-1311/1310) -18.4 W18-W24 N12-N15
      4  753 1171 (N21E12 L= 49)  1476    391        2 ( 593/1119- 965/1238) -38.7 E20-W00 N13-N29
      5 1738  979 (S17W43 L=104)  1828    459        4 (1690/ 781-1769/1206)  56.9 W35-W52 S28-S05
      6 1820 1120 (S12W54 L=115)   654     63        1 (1796/1090-1844/1149) -63.4 W51-W56 S14-S10
      7 1322 1109 (N03W19 L= 79)   307     75        0 (1296/1079-1344/1136)  14.0 W16-W20 N01-N04
      8  286 1051 (N26E48 L= 13)   300     53        1 ( 271/1022- 301/1084)  76.0 E49-E46 N23-N27
      9 1516  702 (S26W21 L= 81)  1848    452        3 (1393/ 582-1576/ 949)  48.4 W10-W29 S32-S13
     10  840  749 (S04E18 L= 43)   202     81        0 ( 813/ 707- 885/ 782) -68.2 E18-E16 S07-S01
     11  999  705 (S11E10 L= 51)   498    171        2 ( 913/ 669-1092/ 746) -10.3 E15-E04 S12-S09
     12  217  652 (N03E70 L=351)   600    210        1 ( 190/ 618- 248/ 702)  15.9 E77-E62 N01-N05
     13 1060  613 (S18E09 L= 51)   311    127        1 (1035/ 554-1083/ 678)  45.0 E12-E06 S20-S14
  

    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