Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  896 1653 (N26E26 L=191)   794    255        1 ( 853/1536- 929/1741) -60.3 E30-E22 N18-N32
      2  765 1602 (N20E32 L=185)   279     57        0 ( 741/1573- 797/1629) -26.6 E34-E28 N18-N21
      3  531 1585 (N14E47 L=170)   325     70        1 ( 497/1564- 574/1600)  36.9 E49-E44 N11-N15
      4  474 1301 (S04E40 L=177)   545    167        1 ( 412/1262- 513/1338)   0.0 E44-E36 S06-S01
      5 1529 1295 (N22W23 L=240)   459    154        1 (1478/1252-1607/1321)  45.0 W20-W28 N17-N25
      6  450 1216 (S09E39 L=178)   717    161        5 ( 407/1163- 502/1289) -36.9 E44-E35 S12-S05
      7  122 1143 (S18E73 L=144)  1946    171        3 (  91/1063- 148/1223)  60.9 E78-E68 S22-S13
      8  641 1165 (S08E25 L=192)   322    102        0 ( 591/1149- 697/1182)  15.9 E28-E21 S09-S07
      9 1394 1050 (N04W20 L=237)   208     65        0 (1376/1013-1408/1084) -53.1 W18-W21 N01-N05
     10 1038  936 (S12W03 L=220)   227    116        0 (1008/ 897-1078/ 983) -26.6 W00-W06 S13-S09
     11 1491  889 (S02W30 L=247)   206     98        0 (1449/ 852-1520/ 921) -18.4 W26-W32 S03-S01
     12 1334  808 (S11W23 L=240)   195     57        0 (1321/ 780-1349/ 846) -63.4 W21-W24 S12-S08
     13 1177  808 (S15W14 L=231)   216     68        0 (1147/ 785-1212/ 822)  56.3 W12-W16 S16-S13
     14  211  709 (S44E62 L=155)  1068     94        1 ( 163/ 680- 250/ 738)   9.5 E73-E55 S46-S41
     15 1149  269 (S47W40 L=258)  1679    243        6 (1054/ 226-1270/ 335)   9.5 W29-W54 S49-S43
  

    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