Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  665 1784 (N52E50 L=149)   893    127        0 ( 633/1737- 695/1814) -18.4 E58-E40 N48-N55
      2  376 1602 (N34E66 L=132)   545     80        0 ( 360/1563- 392/1634) -22.6 E72-E60 N31-N36
      3 1191 1476 (N32W09 L=208)  1516    413        2 (1066/1332-1337/1568) -34.4 W00-W19 N23-N38
      4  493 1390 (N21E41 L=158)   625    159        1 ( 454/1327- 540/1455) -35.0 E46-E35 N17-N25
      5 1685 1319 (N24W48 L=247)   386     64        0 (1669/1284-1699/1350) -90.0 W46-W49 N21-N26
      6 1679 1157 (N14W45 L=244)   379     79        2 (1648/1130-1718/1182) -18.4 W42-W48 N12-N15
      7 1856 1120 (N12W64 L=263)   940    116        2 (1834/1062-1880/1174)  49.4 W60-W69 N08-N15
      8  864 1094 (N05E10 L=189)   536    183        1 ( 812/1047- 906/1144) -51.3 E13-E07 N02-N08
      9 1749  858 (S04W53 L=252)   554     21        0 (1724/ 835-1772/ 882)  45.0 W50-W55 S05-S02
     10 1289  646 (S20W20 L=219)   289     98        0 (1261/ 609-1321/ 689)  71.6 W18-W21 S22-S16
     11 1819  657 (S17W69 L=268)   683     44        2 (1790/ 637-1840/ 681)   0.0 W64-W73 S18-S15
     12 1672  609 (S21W52 L=251)   435     19        1 (1650/ 589-1695/ 632)  14.0 W49-W54 S21-S19
     13  348  571 (S33E53 L=145)   681     68        1 ( 308/ 556- 388/ 589)   0.0 E58-E48 S33-S30
     14 1045  480 (S33W06 L=204)   280     66        0 (1011/ 463-1078/ 500)  36.9 W03-W07 S34-S31
     15 1181  413 (S37W17 L=216)   338     84        0 (1141/ 393-1230/ 429)  33.7 W14-W20 S39-S35
  

    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