Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  819 1754 (N45E33 L=113)   537    108        1 ( 791/1722- 845/1793) -80.5 E35-E29 N42-N48
      2 1292 1579 (N40W10 L=157)   811    195        3 (1228/1510-1353/1635)  48.0 W05-W15 N33-N45
      3  465 1473 (N19E47 L=100)   740    188        4 ( 410/1420- 497/1552)  77.5 E49-E44 N14-N24
      4  839 1394 (N20E18 L=129)   206     60        0 ( 826/1359- 848/1427) -63.4 E18-E16 N17-N21
      5  590 1389 (N15E34 L=112)   376    110        2 ( 541/1365- 636/1412)  23.2 E37-E30 N13-N17
      6  819 1199 (N07E15 L=132)   972    296        6 ( 705/1095- 917/1283) -23.6 E23-E07 N02-N11
      7 1796 1111 (N17W53 L=200)   441    113        0 (1762/1062-1816/1161) -50.2 W49-W55 N13-N19
      8  178 1056 (S11E64 L= 83)   640    150        1 ( 153/1007- 204/1124)  81.9 E66-E61 S13-S06
      9  805  908 (S10E12 L=135)  1139    300        6 ( 763/ 796- 852/1014) -69.0 E14-E07 S16-S03
     10 1301  973 (N01W17 L=164)   233     39        0 (1271/ 958-1322/ 995)  18.4 W15-W18 N00-N02
     11 1508  904 (S00W32 L=179)   325    108        1 (1460/ 871-1552/ 948)  45.0 W29-W34 S02-N03
     12 1707  640 (S13W55 L=202)   680    220        2 (1631/ 607-1764/ 668)  22.6 W49-W61 S16-S11
     13  310  590 (S39E51 L= 96)   656    159        2 ( 276/ 566- 355/ 610)  24.0 E54-E45 S41-S37
     14 1356  418 (S33W36 L=182)   341     68        1 (1320/ 400-1390/ 434)  36.9 W33-W38 S34-S31
     15 1449  368 (S35W46 L=192)   668    155        1 (1407/ 347-1509/ 398)  -5.2 W40-W51 S36-S33
  

    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