Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1249 1695 (N41W11 L=341)   391    110        0 (1197/1661-1300/1714) -20.6 W06-W14 N39-N42
      2 1511 1605 (N38W32 L=  3)  1714    237        3 (1412/1536-1594/1651) -23.2 W23-W38 N33-N40
      3  595 1524 (N23E34 L=297)   588    131        2 ( 567/1465- 623/1569) -82.9 E37-E31 N18-N26
      4  443 1518 (N22E46 L=284)   530     85        0 ( 403/1503- 499/1539)   0.0 E50-E41 N21-N23
      5  988 1356 (N15E05 L=325)   614    177        0 ( 915/1300-1046/1389) -26.6 E09-W00 N11-N16
      6 1217 1367 (N17W09 L=340)   339    145        0 (1146/1343-1286/1386)  -6.3 W04-W13 N16-N18
      7 1848 1293 (N21W61 L= 31)  2066    163        4 (1800/1224-1889/1371) -60.9 W56-W66 N16-N25
      8  762 1299 (N09E18 L=312)   726    163        0 ( 713/1256- 828/1367) -33.7 E22-E13 N07-N13
      9 1096 1062 (S02W04 L=334)   867    205        2 (1049/ 968-1164/1144)  70.0 W01-W07 S08-N03
     10 1426 1005 (S02W25 L=355)   321     71        1 (1404/ 966-1459/1039)  45.0 W23-W26 S04-N00
     11 1403  722 (S19W27 L=358)   210    113        0 (1340/ 701-1443/ 743)  33.7 W23-W29 S21-S17
     12  740  579 (S35E16 L=314)  1899    396        3 ( 584/ 492- 874/ 708)  28.4 E30-E06 S41-S25
     13  381  612 (S35E48 L=283)   319     58        0 ( 348/ 600- 417/ 624)  14.0 E51-E43 S35-S33
     14 1410  340 (S45W44 L= 14)   311     19        1 (1391/ 325-1429/ 361)  90.0 W41-W46 S45-S42
  

    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