Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1686 1596 (N27W58 L=  8)   440     50        0 (1663/1580-1709/1610)   0.0 W55-W61 N25-N27
      2 1752 1406 (N14W57 L=  7)   557     98        2 (1718/1382-1782/1433) -36.9 W54-W60 N12-N15
      3  187 1319 (N28E60 L=250)  2923    311        7 ( 143/1240- 232/1407)  48.4 E64-E55 N22-N33
      4  330 1280 (N23E45 L=265)   718    229        1 ( 240/1238- 400/1355)  21.0 E53-E38 N21-N27
      5 1765 1164 (S01W52 L=  2)   380    131        2 (1720/1130-1796/1192)  15.9 W47-W55 S02-N00
      6 1200 1098 (N02W11 L=321)   229     42        0 (1183/1066-1217/1127)  71.6 W10-W12 N00-N03
      7  708 1088 (N07E18 L=292)   277    118        1 ( 653/1069- 775/1110) -15.9 E21-E13 N05-N08
      8  268  907 (N01E53 L=257)   396     98        1 ( 251/ 860- 292/ 958) -78.7 E54-E51 S01-N04
      9  319  723 (S10E52 L=258)  1246    255        3 ( 239/ 664- 391/ 787) -30.3 E58-E46 S13-S05
     10  907  661 (S21E12 L=298)   962    236        1 ( 827/ 571- 962/ 768)  42.5 E18-E06 S25-S14
     11 1868  684 (S31W62 L= 12)  1052    142        1 (1829/ 641-1898/ 731)  39.8 W57-W64 S33-S28
     12 1185  685 (S23W06 L=316)   288     63        3 (1152/ 648-1217/ 724)  38.7 W03-W08 S24-S20
     13  290  608 (S17E59 L=251)  3401    554       14 ( 197/ 451- 362/ 710) -83.7 E68-E53 S27-S09
     14 1441  626 (S30W23 L=333)   353     66        1 (1412/ 594-1467/ 655)  36.9 W21-W25 S31-S27
     15 1676  600 (S35W43 L=353)   528     83        0 (1660/ 560-1690/ 643) -71.6 W41-W45 S37-S31
  

    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