Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  762 1658 (N37E22 L=257)  1603    324        1 ( 634/1582- 902/1726) -22.9 E35-E09 N31-N42
      2 1541 1594 (N35W39 L=318)   379     92        0 (1498/1565-1584/1620) -33.7 W35-W42 N32-N36
      3  488 1435 (N21E38 L=241)   294     64        1 ( 460/1405- 506/1474)  90.0 E40-E35 N19-N23
      4 1912 1094 (N04W68 L=346)   608     70        1 (1892/1054-1925/1123)  59.0 W64-W70 N01-N06
      5  240  920 (S10E56 L=223)   442     74        0 ( 210/ 893- 281/ 937)   7.1 E59-E51 S11-S08
      6 1730  886 (S10W49 L=327)   352     69        0 (1711/ 856-1752/ 925) -36.9 W46-W50 S11-S07
      7 1558  802 (S15W36 L=314)   564    164        0 (1533/ 729-1575/ 878)  90.0 W33-W36 S19-S10
      8  327  810 (S17E49 L=230)   637     34        0 ( 291/ 779- 356/ 847) -76.0 E51-E46 S18-S14
      9  220  737 (S21E62 L=216)   902     90        6 ( 189/ 707- 257/ 774)  24.0 E67-E57 S22-S18
     10 1707  640 (S25W53 L=331)   599    124        1 (1661/ 592-1743/ 686)  63.4 W49-W55 S27-S21
     11  642  606 (S30E26 L=252)   608    146        2 ( 602/ 548- 674/ 664)  49.4 E30-E23 S33-S26
     12  416  567 (S32E47 L=232)   868    184        2 ( 337/ 512- 492/ 601)  13.4 E59-E38 S35-S30
     13 1324  223 (S58W40 L=319)   606     78        1 (1285/ 200-1355/ 258) -16.4 W31-W48 S60-S55
     14 1186  189 (S63W26 L=304)   776     70        1 (1147/ 160-1223/ 224)  20.6 W22-W31 S66-S59
  

    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