Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  563 1645 (N38E47 L=342)  1363    152        5 ( 495/1599- 635/1677)   3.6 E55-E39 N34-N39
      2  719 1505 (N30E27 L=  3)   326     66        2 ( 699/1476- 744/1531)  76.0 E28-E25 N27-N31
      3 1079 1407 (N26W00 L= 30)  1191    331        1 ( 994/1324-1132/1520) -59.7 E04-W04 N20-N33
      4 1755 1448 (N34W61 L= 90)  2100    262        1 (1639/1393-1856/1509)  -9.5 W47-W79 N31-N38
      5  319 1388 (N18E57 L=332)   542    134        0 ( 286/1319- 340/1425) -31.0 E63-E52 N13-N20
      6  457 1346 (N17E43 L=347)   282     97        1 ( 416/1321- 489/1362)  -9.5 E45-E39 N14-N17
      7 1438 1318 (N23W26 L= 55)   236     95        0 (1408/1278-1478/1348)  45.0 W23-W29 N20-N25
      8 1341 1295 (N21W19 L= 48)   306     69        3 (1318/1256-1373/1327) -90.0 W17-W20 N18-N23
      9 1815 1146 (N15W59 L= 88)   819    150        0 (1777/1111-1864/1201) -40.6 W54-W65 N12-N18
     10  622 1140 (N06E27 L=  3)   245    102        0 ( 580/1102- 657/1172)  51.3 E28-E24 N02-N07
     11  485  898 (S11E34 L=355)   245     68        1 ( 450/ 874- 511/ 920) -21.8 E37-E32 S11-S09
     12  995  710 (S18W01 L= 30)   633    167        1 ( 950/ 643-1056/ 749)  54.5 E01-W04 S22-S15
     13 1707  651 (S17W54 L= 84)   392      9        0 (1688/ 629-1724/ 671) -26.6 W52-W56 S17-S15
     14 1019  608 (S24W03 L= 33)   310     98        1 ( 974/ 584-1058/ 635) -18.4 W00-W06 S25-S22
     15  995  418 (S39W04 L= 33)   494    145        0 ( 937/ 396-1068/ 442)  24.0 W00-W09 S40-S36
  

    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