Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1483 1698 (N51W12 L=274)   578    125        2 (1430/1681-1536/1715)  21.8 W07-W17 N48-N53
      2  317 1567 (N09E67 L=194)   990    182        4 ( 283/1544- 361/1602)  12.5 E72-E62 N07-N11
      3 1440 1471 (N31W13 L=275)   333     59        2 (1411/1448-1468/1498)   0.0 W10-W15 N29-N32
      4 1048 1361 (N12E08 L=254)   577    229        0 ( 991/1266-1091/1446) -36.0 E13-E02 N07-N16
      5  217 1146 (S18E58 L=204)   850    143        2 ( 188/1104- 242/1209) -50.2 E62-E55 S20-S14
      6  272 1087 (S21E51 L=210)  1377    343        5 ( 205/ 990- 338/1182)  65.2 E56-E46 S27-S14
      7  413 1134 (S15E40 L=221)   254     78        1 ( 384/1113- 447/1161)  45.0 E42-E38 S16-S12
      8  252  925 (S31E51 L=211)   600    154        0 ( 207/ 905- 310/ 954)  -5.7 E55-E45 S31-S29
      9  850  912 (S18E07 L=255)   745    260        1 ( 741/ 877- 986/ 936)  15.9 E13-W01 S20-S15
     10  534  886 (S27E27 L=235)   335    112        0 ( 487/ 866- 588/ 903)  23.2 E30-E23 S28-S24
     11 1139  730 (S20W15 L=276)  1198    375        0 ( 969/ 624-1294/ 802)   9.9 W04-W27 S24-S16
     12 1490  517 (S21W45 L=307)   307     95        0 (1467/ 481-1512/ 554) -15.9 W41-W48 S22-S19
     13 1649  522 (S15W57 L=319)   441    115        2 (1629/ 491-1670/ 554) -76.0 W54-W60 S17-S13
     14 1649  455 (S18W61 L=323)   535     85        2 (1626/ 425-1684/ 484)  53.1 W59-W64 S20-S16
     15 1202  411 (S36W33 L=294)   404    107        1 (1165/ 381-1247/ 450)  -7.1 W28-W36 S37-S34
  

    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