Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  982 1708 (N33E22 L=312)   782    146        1 ( 932/1649-1037/1761) -22.6 E27-E15 N29-N35
      2 1171 1516 (N25E04 L=330)   215     71        0 (1158/1478-1185/1555) -59.0 E05-E01 N22-N27
      3 1035 1468 (N18E10 L=324)   359    153        0 ( 980/1439-1128/1490)   6.3 E13-E04 N16-N19
      4  187 1406 (S00E73 L=261)   698     69        0 ( 168/1388- 215/1440) -15.3 E78-E67 S01-N02
      5  309 1165 (S13E50 L=284)   269     52        0 ( 297/1135- 326/1193)  90.0 E50-E48 S15-S11
      6 1179 1147 (N03W06 L=340)   607    268        2 (1046/1120-1288/1185)  30.3 E01-W11 N00-N07
      7  468 1126 (S13E36 L=298)   269     26        0 ( 450/1099- 482/1152) -56.3 E37-E34 S14-S11
      8  380  937 (S26E40 L=294)   459    127        1 ( 342/ 900- 421/ 982) -26.6 E43-E36 S27-S23
      9 1687  833 (S00W45 L= 19)   529    102        0 (1639/ 816-1744/ 854)   6.3 W41-W50 S02-N01
     10  977  689 (S27W06 L=340)   346    160        1 ( 899/ 670-1056/ 720)  11.3 W00-W10 S28-S25
     11  255  663 (S45E57 L=277)  1132    195        1 ( 191/ 621- 339/ 715)  -5.4 E68-E45 S46-S41
     12 1331  559 (S25W32 L=  6)   485     90        0 (1286/ 543-1383/ 578)   8.1 W28-W35 S26-S23
     13 1533  425 (S26W54 L= 28)  1292    262        3 (1426/ 382-1672/ 479)  38.7 W47-W63 S31-S19
  

    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