Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1373 1627 (N40W04 L=341)   916    233        2 (1345/1505-1403/1716) -61.9 W00-W08 N32-N47
      2  950 1658 (N28E24 L=313)   246     38        0 ( 934/1631- 965/1686) -68.2 E25-E23 N25-N30
      3 1503 1326 (N24W20 L=357)   288     88        1 (1461/1292-1541/1357)  -9.5 W16-W22 N23-N25
      4 1755 1258 (N29W41 L= 18)   480    134        0 (1736/1194-1770/1326) -54.5 W38-W43 N25-N32
      5  264 1234 (S13E56 L=281)  1768    306        4 ( 201/1118- 310/1325) -53.1 E64-E51 S19-S07
      6 1687 1275 (N27W35 L= 12)   377     87        0 (1670/1230-1703/1325) -51.3 W32-W36 N24-N30
      7  160 1227 (S15E69 L=268)   541    117        0 ( 142/1187- 196/1283)  60.3 E71-E65 S17-S10
      8  333 1198 (S14E48 L=288)   646    122        1 ( 307/1134- 355/1251)  90.0 E50-E45 S17-S10
      9  497 1168 (S12E35 L=302)   407    122        0 ( 456/1122- 546/1211) -20.6 E38-E30 S13-S10
     10 1452 1158 (N13W20 L=357)   423     89        1 (1410/1137-1489/1192) -11.3 W17-W22 N10-N14
     11  443 1070 (S18E37 L=300)   604    120        2 ( 381/1044- 498/1106)  29.1 E41-E32 S20-S15
     12 1359 1074 (N05W17 L=354)   354    105        0 (1301/1060-1414/1088)  33.7 W13-W20 N03-N07
     13  939  905 (S15E01 L=336)   311     51        1 ( 905/ 882- 971/ 933)  33.7 E03-W00 S16-S13
     14  835  758 (S26E03 L=333)   377     95        1 ( 819/ 709- 853/ 813) -51.3 E05-E01 S29-S23
     15 1768  774 (N02W54 L= 31)   509     66        1 (1738/ 752-1805/ 802)  15.9 W51-W58 N01-N03
     16  272  660 (S48E53 L=284)   622     82        0 ( 230/ 636- 308/ 679)   0.0 E60-E47 S49-S46
     17 1018  611 (S29W12 L=349)   366    149        0 ( 953/ 573-1077/ 647)   0.0 W07-W17 S30-S28
     18 1576  496 (S18W53 L= 30)   351     62        1 (1548/ 465-1602/ 524)  -8.1 W49-W56 S19-S16
     19 1233  431 (S33W34 L= 11)   302     71        0 (1188/ 412-1270/ 449)  18.4 W30-W36 S33-S31
     20 1548  409 (S23W58 L= 34)   441     93        0 (1522/ 386-1573/ 442) -45.0 W54-W60 S24-S21
  

    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