Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  654 1621 (N25E36 L=231)   399     73        0 ( 625/1584- 680/1656)  80.5 E36-E34 N21-N27
      2 1280 1626 (N36W07 L=274)   384     47        0 (1249/1610-1312/1643)  36.9 W04-W08 N34-N38
      3 1351 1583 (N34W12 L=279)   281     38        1 (1328/1561-1372/1606)  53.1 W10-W13 N32-N36
      4  227 1509 (N14E72 L=195)  1771    211        1 ( 189/1464- 261/1552)  56.3 E76-E66 N11-N17
      5 1451 1411 (N24W21 L=288)   297     47        1 (1425/1380-1475/1434)  76.0 W18-W22 N22-N26
      6 1520 1400 (N25W26 L=293)   307     44        0 (1492/1371-1544/1422) -26.6 W23-W27 N23-N26
      7 1295 1348 (N17W11 L=278)   622    150        0 (1269/1272-1323/1416)  90.0 W09-W12 N12-N22
      8  736 1334 (N07E22 L=245)   355    100        1 ( 687/1294- 763/1370) -26.6 E25-E19 N05-N09
      9  142 1217 (S05E71 L=196)  1327    145        3 ( 118/1173- 161/1261) -51.3 E75-E66 S07-S02
     10 1620 1202 (N15W34 L=302)   619    146        0 (1573/1149-1666/1260)  60.9 W31-W37 N10-N19
     11 1826  992 (N07W55 L=322)   342     36        0 (1812/ 966-1846/1015)  90.0 W53-W57 N05-N08
     12  649  830 (S23E21 L=247)  4740   1232        4 ( 213/ 584-1140/ 956)  20.3 E60-W08 S43-S09
     13 1897  908 (N04W66 L=333)  1025    201        4 (1862/ 859-1929/ 953) -80.5 W61-W71 N01-N07
     14 1852  675 (S09W69 L=337)  1035    170        1 (1825/ 636-1880/ 704)  53.1 W66-W73 S11-S07
     15 1475  609 (S22W37 L=305)   856    151        0 (1396/ 581-1552/ 639)  37.9 W32-W42 S25-S18
  

    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