Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1479 1713 (N31W55 L=105)   407     62        0 (1464/1676-1491/1745)  29.7 W52-W59 N28-N32
      2 1600 1540 (N18W52 L=102)  1474    300        0 (1495/1430-1703/1632) -69.4 W48-W57 N08-N25
      3 1322 1542 (N25W33 L= 82)  2594    579        4 (1088/1431-1567/1597) -33.7 W17-W45 N12-N32
      4 1745 1506 (N12W64 L=113)   492     59        2 (1715/1483-1769/1525)   0.0 W59-W67 N10-N13
      5 1230 1409 (N20W22 L= 71)   404    135        1 (1166/1390-1298/1428) -29.7 W17-W25 N17-N21
      6 1861 1253 (S05W64 L=113)   437     47        1 (1843/1227-1877/1276)  36.9 W61-W66 S06-S03
      7  254 1095 (N24E51 L=358)   864    136        3 ( 180/1057- 310/1126) -24.8 E59-E45 N20-N27
      8 1578 1076 (S07W34 L= 83)   341     58        1 (1545/1055-1613/1101) -26.6 W31-W35 S08-S05
      9 1576  998 (S11W32 L= 81)   415    132        0 (1511/ 974-1626/1032) -14.0 W27-W35 S12-S09
     10 1207  912 (S07W08 L= 57)   267     74        1 (1170/ 876-1227/ 935) -63.4 W05-W08 S09-S05
     11 1082  831 (S09E01 L= 48)  1183    300        7 ( 951/ 754-1163/ 914)  14.9 E10-W05 S11-S04
     12  641  833 (N01E26 L= 23)  1483    318        2 ( 512/ 739- 743/ 900) -31.6 E34-E21 S05-N05
     13  218  847 (N10E59 L=350)   718    106        2 ( 175/ 821- 276/ 884) -21.8 E63-E53 N08-N13
     14 1025  842 (S07E04 L= 45)   227     81        1 ( 980/ 820-1060/ 860) -11.3 E06-E01 S07-S05
     15 1068  735 (S14E04 L= 45)   330    128        1 (1006/ 711-1120/ 772)  -8.1 E07-W00 S14-S11
     16  809  645 (S13E21 L= 28)  1028    305        2 ( 713/ 600- 959/ 718) -36.9 E26-E13 S17-S07
     17  410  681 (S02E46 L=  3)   419     86        4 ( 375/ 650- 453/ 707)   0.0 E49-E42 S03-N00
     18 1236  593 (S26W02 L= 51)  1607    313        4 (1140/ 543-1363/ 673) -45.0 E02-W10 S30-S18
     19  316  560 (S08E61 L=349)  1610    247        6 ( 261/ 483- 394/ 659) -70.0 E67-E55 S13-S01
     20  420  619 (S06E48 L=  1)   465     53        3 ( 386/ 595- 455/ 639) -21.8 E50-E45 S07-S04
     21  975  344 (S36E23 L= 26)  4341    619        8 ( 821/ 147-1091/ 601)  41.4 E47-E11 S49-S18
     22  439  538 (S11E50 L=359)  1511    172        5 ( 358/ 479- 514/ 590) -31.0 E56-E45 S15-S07
     23  562  541 (S14E41 L=  9)   543    104        1 ( 525/ 488- 597/ 574)  29.7 E44-E37 S16-S11
     24  456  394 (S20E58 L=351)  1346    181        0 ( 415/ 324- 486/ 483)  27.8 E70-E50 S24-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