Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1256 1739 (N45E09 L= 14)  2884    454        3 (1128/1580-1421/1885) -23.4 E29-W08 N37-N54
      2  639 1700 (N23E47 L=336)  2030    238        6 ( 568/1608- 741/1761)  63.4 E54-E41 N15-N27
      3 1021 1679 (N32E21 L=  2)   650    206        0 ( 954/1598-1048/1749) -31.6 E29-E16 N26-N35
      4  672 1584 (N16E38 L=345)   299     30        1 ( 651/1566- 696/1607) -26.6 E40-E36 N14-N17
      5  392 1581 (N10E61 L=323)   439     47        1 ( 364/1555- 420/1597) -14.0 E64-E56 N08-N11
      6 1363 1386 (N23W09 L= 33)   259     91        0 (1339/1361-1395/1430) -31.0 W06-W12 N21-N25
      7 1825 1382 (N41W52 L= 75)   478     40        0 (1802/1366-1851/1400)  12.5 W47-W56 N39-N43
      8 1766 1241 (N28W43 L= 66)   482     86        1 (1736/1212-1797/1286) -23.2 W39-W46 N26-N30
      9  196 1019 (S26E61 L=323)   590    110        0 ( 155/ 977- 239/1063)  28.6 E66-E55 S29-S23
     10  655  937 (S21E19 L=  4)   386    117        1 ( 600/ 917- 699/ 972)  45.0 E22-E17 S23-S18
     11 1722  649 (S06W57 L= 80)   460     38        1 (1699/ 626-1747/ 674)   9.5 W54-W60 S06-S04
     12 1281  416 (S33W39 L= 62)   339     71        0 (1262/ 377-1299/ 454) -45.0 W36-W41 S34-S30
     13 1313  189 (S44W67 L= 90)   704     76        1 (1277/ 157-1344/ 221)   3.4 W60-W78 S44-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