Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1190 1860 (N59W49 L= 57)   978     90        1 (1146/1829-1229/1894)   7.4 W39-W62 N56-N61
      2 1004 1809 (N60W22 L= 29)   346     50        0 ( 981/1787-1027/1830)  12.5 W17-W26 N58-N62
      3 1530 1651 (N35W56 L= 64)   493    149        0 (1470/1614-1602/1668) -31.0 W50-W60 N30-N37
      4 1504 1546 (N29W46 L= 54)   630     95        0 (1453/1515-1553/1575) -33.7 W42-W49 N26-N31
      5  609 1342 (N32E24 L=344)   615    138        1 ( 590/1276- 628/1418)  71.6 E25-E22 N27-N36
      6  360 1278 (N30E46 L=322)  2513    385        3 ( 240/1173- 483/1408) -25.8 E65-E33 N22-N39
      7 1656 1345 (N14W49 L= 57)   508    128        0 (1617/1314-1700/1372) -14.0 W44-W52 N11-N15
      8 1271 1229 (N15W18 L= 26)   519    176        0 (1190/1208-1359/1243) -21.8 W13-W23 N11-N16
      9  477  950 (N09E36 L=332)   445     98        2 ( 461/ 899- 497/1008)  71.6 E37-E34 N06-N12
     10 1841  923 (S15W57 L= 65)  1564    189        2 (1774/ 861-1899/ 992)  14.0 W49-W65 S17-S12
     11  751  690 (S10E22 L=346)   624    126        3 ( 728/ 622- 776/ 747)  60.3 E24-E19 S13-S06
     12 1054  640 (S17E04 L=  3)   675    244        0 ( 957/ 597-1129/ 712)  10.3 E10-W01 S19-S13
     13  916  692 (S12E12 L=356)   272    114        0 ( 863/ 680- 972/ 707) -26.6 E14-E08 S13-S10
     14  295  579 (S13E63 L=305)  2283    349        5 ( 227/ 498- 389/ 688) -61.7 E68-E54 S18-S05
     15  569  350 (S31E49 L=319)  1277    188        4 ( 515/ 296- 620/ 430)  32.9 E60-E41 S35-S24
  

    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