Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1023 1944 (N64W57 L=  7)   710     63        1 (1011/1910-1039/1979)  10.0 W46-W80 N60-N66
      2  956 1898 (N63W38 L=348)   547     48        2 ( 927/1870- 980/1924)   0.0 W33-W46 N59-N65
      3 1305 1808 (N42W52 L=  2)  2028    348        1 (1154/1763-1462/1851) -16.5 W35-W63 N35-N47
      4  960 1659 (N43W15 L=325)   445     76        0 ( 936/1617- 988/1694)  33.7 W11-W18 N40-N44
      5  771 1595 (N44E01 L=309)   365     93        0 ( 725/1568- 818/1619)   0.0 E05-W02 N42-N45
      6 1737 1205 (S04W49 L=359)  2983    519        3 (1675/ 959-1776/1428)  56.3 W39-W56 S16-N08
      7  672 1250 (N24E16 L=294)   278     80        0 ( 633/1224- 701/1271) -36.9 E18-E13 N22-N25
      8  976 1177 (N13W01 L=311)   723    271        0 ( 875/1134-1074/1257) -54.0 E03-W05 N09-N20
      9  374 1174 (N27E39 L=271)   686    161        2 ( 345/1114- 415/1240) -90.0 E41-E35 N22-N30
     10  252 1131 (N26E51 L=259)  1270    261        0 ( 145/1058- 352/1193) -26.6 E66-E42 N20-N32
     11  477 1030 (N16E33 L=277)   358    156        0 ( 408/ 996- 544/1051)   0.0 E38-E27 N14-N17
     12  231  836 (N10E58 L=252)   828    122        1 ( 186/ 795- 272/ 882)  14.0 E64-E52 N07-N11
     13  389  794 (N04E45 L=266)   551    138        0 ( 328/ 761- 436/ 817) -35.5 E49-E40 N01-N06
     14 1480  709 (S25W20 L=330)   673    235        2 (1402/ 628-1583/ 801)  21.8 W13-W28 S28-S21
     15  884  734 (S09E15 L=296)   326     82        0 ( 863/ 690- 905/ 775)  80.5 E15-E13 S12-S06
     16  324  565 (S08E59 L=251)   387     61        0 ( 311/ 531- 342/ 601)  63.4 E61-E57 S09-S05
     17  351  436 (S16E66 L=244)  4920    424        7 ( 266/ 252- 477/ 567)  61.6 E78-E61 S30-S06
     18 1504  417 (S47W19 L=329)   669    106        2 (1445/ 394-1548/ 453)  -5.7 W13-W23 S49-S44
     19  893  326 (S35E29 L=281)   939    173        0 ( 824/ 266- 956/ 384)  14.9 E37-E22 S37-S31
  

    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