Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1683 1591 (N26W58 L=  9)   491     64        0 (1657/1575-1711/1606)   9.5 W54-W60 N25-N27
      2 1743 1401 (N14W56 L=  6)   415     79        1 (1716/1383-1772/1419)  -9.5 W53-W59 N12-N14
      3  183 1306 (N27E60 L=251)  3007    464        6 ( 137/1212- 225/1397) -85.2 E65-E54 N20-N32
      4  332 1282 (N23E45 L=266)   604    183        2 ( 263/1242- 395/1355)  28.6 E50-E39 N21-N27
      5 1188 1093 (N02W10 L=321)   250     36        1 (1170/1061-1209/1123)  71.6 W09-W11 N00-N03
      6  695 1086 (N07E19 L=292)   231    121        0 ( 644/1067- 762/1106) -14.0 E22-E14 N05-N08
      7 1738 1050 (S07W48 L=358)   322    109        1 (1699/1034-1778/1069) -23.2 W44-W51 S08-S05
      8  315  804 (S05E51 L=260)  1161    315        3 ( 242/ 681- 388/ 957) -66.4 E54-E46 S12-N04
      9  186  859 (S00E63 L=248)   435    104        4 ( 163/ 827- 208/ 891)  56.3 E65-E60 S02-N01
     10  279  737 (S09E56 L=255)   774    169        2 ( 238/ 667- 331/ 804) -66.0 E58-E52 S13-S04
     11  898  657 (S21E13 L=298)  1019    222        2 ( 822/ 569- 951/ 760)  42.3 E18-E07 S25-S15
     12 1860  678 (S32W61 L= 12)  1297    187        2 (1814/ 643-1895/ 720)  38.7 W55-W65 S33-S29
     13  283  610 (S16E60 L=251)  3731    579       14 ( 192/ 451- 362/ 709) -70.6 E69-E53 S27-S09
     14 1436  624 (S30W23 L=334)   350     56        0 (1412/ 589-1462/ 653)  45.0 W21-W24 S32-S27
     15 1670  595 (S35W43 L=354)   522     64        0 (1652/ 557-1687/ 631) -59.0 W40-W45 S37-S32
  

    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