Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1075 1614 (N39E06 L= 74)   396     66        1 (1042/1592-1117/1636) -15.9 E08-E01 N37-N41
      2  737 1531 (N28E28 L= 52)   767    252        1 ( 674/1449- 822/1612) -31.0 E34-E19 N24-N33
      3  427 1429 (N17E48 L= 32)  2561    467        5 ( 370/1260- 481/1573) -42.0 E59-E39 N07-N26
      4 1108 1496 (N31E01 L= 79)   334    106        0 (1092/1450-1120/1546) -80.5 E02-W00 N28-N34
      5 1690 1467 (N38W47 L=127)   431     76        1 (1657/1443-1713/1488) -21.8 W43-W49 N36-N39
      6  930 1369 (N20E11 L= 69)   254     86        0 ( 881/1355- 970/1382)  11.3 E13-E08 N19-N21
      7 1193 1277 (N18W07 L= 87)   224    100        1 (1160/1232-1211/1325) -59.0 W04-W08 N15-N20
      8 1753 1220 (N22W50 L=129)  1186    296        0 (1675/1105-1835/1322) -36.9 W42-W58 N15-N27
      9 1118 1221 (N14W03 L= 83)   206     88        0 (1070/1211-1161/1236)  11.3 W00-W05 N12-N14
     10  730 1157 (N05E20 L= 60)   305    115        0 ( 671/1144- 783/1178)  23.2 E23-E16 N03-N06
     11 1658 1105 (N13W41 L=121)   468    113        1 (1644/1054-1674/1167) -81.9 W40-W42 N10-N17
     12 1743 1103 (N14W49 L=129)   364     93        0 (1719/1065-1761/1136)  59.0 W46-W50 N11-N16
     13  209  999 (S12E59 L= 21)  1317    453        4 ( 113/ 968- 312/1025)   4.4 E74-E48 S13-S08
     14  790  941 (S07E13 L= 67)   258    109        0 ( 763/ 883- 830/ 987)  74.1 E14-E11 S11-S04
     15 1721  653 (S13W56 L=136)   553    100        1 (1681/ 623-1750/ 671)   0.0 W51-W58 S15-S12
     16 1320  432 (S33W31 L=111)   289     71        0 (1298/ 414-1346/ 461) -31.0 W28-W33 S34-S31
     17 1205  422 (S36W23 L=103)   424     52        2 (1180/ 401-1233/ 448) -11.3 W20-W25 S37-S33
     18 1112  421 (S37W16 L= 96)   341     46        0 (1082/ 405-1136/ 442)  45.0 W14-W18 S38-S35
     19  477  409 (S49E40 L= 40)   524    140        0 ( 445/ 386- 518/ 433)  24.4 E45-E34 S52-S46
  

    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