Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  915 1895 (N52E37 L=292)   904     88        3 ( 875/1869- 956/1920)  -9.5 E44-E31 N48-N54
      2  678 1823 (N40E50 L=279)   435     55        0 ( 665/1800- 699/1853) -24.0 E54-E45 N37-N42
      3  666 1770 (N35E45 L=283)   395     36        1 ( 643/1748- 688/1793)   0.0 E47-E42 N33-N37
      4 1257 1440 (N22W07 L=335)   308    104        1 (1219/1405-1295/1468) -26.6 W03-W09 N20-N23
      5 1064 1372 (N14E04 L=325)   237     74        0 (1029/1348-1100/1396)  53.1 E05-E01 N12-N16
      6 1867 1074 (N14W59 L= 27)   575     58        0 (1843/1049-1893/1101)  38.7 W55-W62 N12-N16
      7  458  947 (S20E35 L=293)   515    114        0 ( 423/ 898- 505/ 986)  50.2 E37-E31 S22-S16
      8 1708  644 (S14W55 L= 24)   485     48        0 (1681/ 619-1729/ 674)  90.0 W53-W57 S15-S12
      9  351  580 (S45E50 L=279)   741     71        1 ( 329/ 543- 373/ 624)  71.6 E53-E45 S47-S41
     10 1710  547 (S19W61 L= 30)  1109     88        4 (1644/ 499-1776/ 597)  35.0 W54-W66 S22-S14
     11 1139  528 (S34W18 L=347)   520    184        0 (1037/ 513-1220/ 549)  26.6 W11-W23 S36-S30
     12 1580  520 (S24W51 L= 19)   301     53        1 (1563/ 491-1599/ 545)  90.0 W48-W52 S25-S22
     13 1630  467 (S26W59 L= 27)   628     82        2 (1594/ 434-1668/ 497)  15.9 W54-W62 S28-S23
     14 1008  249 (S57W23 L=352)   942    188        2 ( 915/ 215-1084/ 295)   0.0 W11-W32 S59-S54
  

    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