Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1203 1409 (N26W20 L=328)   247     69        0 (1184/1373-1218/1446)  53.1 W18-W21 N23-N27
      2  399 1415 (N43E41 L=267)   560    133        1 ( 356/1391- 444/1440) -18.4 E45-E36 N40-N45
      3  289 1367 (N41E51 L=257)   711    120        1 ( 274/1325- 312/1419) -56.3 E53-E48 N38-N44
      4 1623 1364 (N13W47 L=355)   380     70        0 (1591/1334-1658/1389) -45.0 W45-W49 N10-N14
      5  755 1313 (N29E11 L=297)   562    112        3 ( 717/1278- 811/1343)  -8.1 E14-E07 N27-N31
      6  299 1142 (N26E49 L=259)  1323    257        2 ( 260/1031- 355/1242) -63.4 E52-E44 N18-N32
      7  894 1127 (N16E06 L=302)   208     74        0 ( 867/1094- 930/1161) -68.2 E06-E04 N12-N17
      8 1396  943 (S05W20 L=329)  1352    363        1 (1320/ 839-1504/1072)  77.0 W15-W26 S12-N01
      9 1528  850 (S14W27 L=336)   256     68        0 (1502/ 823-1544/ 889)  45.0 W25-W28 S15-S11
     10  949  583 (S18E14 L=294)  1264    268        3 ( 871/ 488-1003/ 690)  37.6 E21-E08 S23-S12
     11  399  547 (S11E54 L=254)   544    111        1 ( 366/ 521- 422/ 590)  33.7 E57-E51 S13-S08
     12  451  548 (S12E49 L=259)   351     79        1 ( 436/ 522- 469/ 586) -90.0 E51-E47 S13-S09
     13  463  388 (S23E56 L=252)   628    107        1 ( 426/ 360- 498/ 412)  -8.1 E59-E52 S25-S21
     14  943  307 (S38E24 L=284)   918    168        3 ( 901/ 248-1000/ 344)  22.6 E30-E18 S42-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