Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  565 1575 (N28E44 L=242)  1435    226        0 ( 511/1477- 642/1670)  90.0 E46-E41 N20-N35
      2 1526 1558 (N43W33 L=319)   347     47        1 (1506/1536-1554/1584) -26.6 W30-W35 N41-N45
      3 1793 1292 (N28W57 L=343)   738    122        1 (1763/1223-1824/1338) -76.0 W53-W59 N23-N31
      4 1584 1151 (N16W35 L=322)   484    117        1 (1541/1108-1623/1191) -29.7 W31-W38 N13-N18
      5  215 1028 (S11E60 L=227)  2447    269        7 ( 160/ 923- 269/1142)  63.4 E68-E54 S17-S03
      6  128 1059 (S10E75 L=212)   844     85        2 ( 114/1023- 139/1101) -78.7 E78-E72 S12-S07
      7  270  829 (S23E54 L=233)   723     99        3 ( 246/ 785- 301/ 865)  35.5 E57-E49 S25-S20
      8 1655  789 (S05W46 L=332)   329     98        0 (1638/ 747-1681/ 825) -33.7 W43-W49 S07-S02
      9  797  698 (S23E10 L=276)   314     65        1 ( 771/ 671- 822/ 731) -45.0 E11-E07 S24-S21
     10 1755  659 (S12W61 L=347)  1381    163        2 (1719/ 593-1796/ 720)  77.5 W57-W64 S16-S07
     11 1677  641 (S14W53 L=340)   781    173        1 (1617/ 582-1708/ 677) -26.6 W46-W57 S17-S11
     12 1778  590 (S16W68 L=355)   813    101        0 (1742/ 550-1810/ 632)  63.4 W65-W72 S18-S12
     13 1090  519 (S31W13 L=299)  1530    458        0 ( 889/ 472-1292/ 567)  25.6 W00-W25 S36-S24
     14 1609  483 (S25W55 L=342)   874    119        5 (1572/ 458-1668/ 515)   0.0 W50-W63 S26-S22
     15 1309  279 (S45W43 L=329)  2986    383        5 (1178/ 235-1490/ 347)  23.7 W29-W58 S50-S36
  

    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