Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1481 1673 (N28W52 L=116)   669    136        1 (1412/1642-1541/1700) -49.4 W47-W56 N24-N31
      2 1728 1588 (N16W70 L=133)   722    106        4 (1686/1548-1762/1624) -63.4 W67-W73 N13-N19
      3 1602 1554 (N18W54 L=117)   477     97        4 (1564/1526-1636/1577) -26.6 W50-W56 N16-N20
      4 1440 1489 (N19W38 L=102)  1116    300        0 (1332/1429-1572/1575) -57.3 W34-W45 N12-N26
      5  974 1478 (N30W09 L= 73)  1018    215        2 ( 881/1426-1079/1509)  -8.1 W01-W15 N27-N32
      6  392 1484 (N47E38 L= 26)   665    117        1 ( 349/1457- 455/1508)   4.8 E43-E30 N45-N48
      7 1305 1430 (N19W27 L= 91)   977    270        1 (1196/1332-1399/1481) -65.2 W21-W30 N11-N24
      8 1632 1446 (N11W50 L=114)   377     34        1 (1608/1418-1657/1467)  76.0 W48-W52 N09-N13
      9 1715 1423 (N08W56 L=120)   341     87        0 (1678/1392-1736/1455) -68.2 W53-W58 N05-N10
     10 1042 1317 (N19W08 L= 72)   297    150        0 ( 975/1302-1120/1331) -26.6 W04-W12 N16-N21
     11 1736 1198 (S04W49 L=112)   507     91        0 (1719/1142-1760/1241)  45.0 W46-W52 S07-S02
     12 1799 1167 (S08W54 L=117)   413     56        0 (1785/1130-1815/1199)  76.0 W51-W55 S09-S05
     13 1935 1038 (S19W68 L=132)   670     99        1 (1908/1000-1966/1074)  26.6 W63-W76 S20-S17
     14  162 1036 (N23E63 L=  1)   692     58        2 ( 138/1003- 188/1064)  15.9 E66-E59 N20-N24
     15 1259 1004 (S03W13 L= 76)   335    115        1 (1231/ 955-1297/1052)  38.7 W10-W15 S05-N00
     16 1360  911 (S11W16 L= 80)   279    118        1 (1300/ 890-1404/ 941)  -8.1 W12-W19 S11-S09
     17  511  680 (S04E39 L= 25)  2985    563        6 ( 339/ 521- 705/ 854) -45.0 E49-E30 S16-N06
     18  143  801 (N09E71 L=352)   682     86        2 ( 111/ 779- 181/ 842)  -9.5 E77-E65 N07-N11
     19  836  741 (S08E17 L= 46)  1203    364        5 ( 735/ 666- 970/ 834)  13.2 E24-E07 S10-S05
     20  939  701 (S12E12 L= 51)   249     71        1 ( 918/ 659- 956/ 736)  53.1 E13-E10 S14-S10
     21 1007  549 (S23E13 L= 51)  2219    578        4 ( 804/ 473-1224/ 675) -32.5 E22-W00 S29-S12
     22  362  652 (S03E52 L= 12)   349     65        1 ( 341/ 627- 385/ 673) -90.0 E54-E49 S04-S01
     23  338  518 (S10E61 L=  3)  5722    462       13 ( 241/ 358- 461/ 656)  51.7 E76-E50 S20-S01
     24  819  282 (S36E38 L= 26)  4316    493        8 ( 700/ 116- 910/ 478)  31.2 E70-E26 S48-S22
  

    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