Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  927 1421 (N28W03 L=335)   310    116        0 ( 880/1388- 980/1455) -56.3 W00-W06 N24-N30
      2 1812 1224 (S04W57 L= 28)  3380    424        3 (1710/1017-1876/1356) -72.3 W51-W61 S17-N05
      3 1674 1304 (N04W47 L= 18)   365     37        0 (1648/1279-1701/1328)  21.8 W44-W49 N02-N04
      4  877 1307 (N22E02 L=329)   202     74        0 ( 836/1297- 914/1319) -14.0 E04-W00 N20-N22
      5 1288 1278 (N11W21 L=352)   366    128        0 (1223/1254-1343/1307) -39.8 W17-W23 N08-N14
      6 1917 1270 (S05W73 L= 45)   826     65        2 (1891/1239-1937/1296) -33.7 W69-W78 S06-S02
      7 1926 1129 (S12W69 L= 40)  1118    114        2 (1906/1091-1952/1181) -78.7 W66-W74 S14-S09
      8 1579 1121 (S04W35 L=  6)   233     59        1 (1547/1099-1604/1142) -26.6 W32-W36 S05-S03
      9 1519  943 (S13W27 L=359)   221     44        0 (1498/ 924-1542/ 965) -71.6 W26-W28 S14-S11
     10 1259  655 (S24W06 L=337)  3346   1000        1 ( 894/ 378-1590/ 874)  14.3 E25-W30 S32-S17
     11  169  788 (N06E67 L=264)  2493    185        4 ( 111/ 735- 241/ 841)   0.0 E83-E58 N03-N09
     12 1028  782 (S11E05 L=326)   419    177        0 ( 938/ 748-1101/ 827)  -5.7 E10-W00 S11-S09
     13  531  306 (S29E59 L=273)  1493    158        4 ( 464/ 251- 607/ 350)   6.3 E76-E49 S32-S26
  

    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