Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1302 1730 (N40W46 L=351)   372     80        0 (1261/1712-1338/1743) -59.0 W44-W48 N37-N42
      2 1040 1622 (N42W20 L=324)   277     41        0 (1017/1605-1071/1643) -56.3 W18-W22 N40-N43
      3  844 1450 (N36E00 L=304)   861    218        4 ( 754/1412- 951/1473) -13.0 E06-W07 N33-N39
      4 1767 1399 (N07W62 L=  6)   427     60        0 (1755/1364-1779/1436)  31.0 W59-W64 N05-N08
      5 1815 1122 (S09W55 L=359)   455     62        0 (1793/1091-1830/1160)  45.0 W51-W57 S10-S06
      6  216 1035 (N24E58 L=246)  1169    235        2 ( 186/ 941- 265/1149) -57.3 E62-E53 N17-N31
      7 1868 1081 (S13W60 L=  4)   925    124        2 (1838/1021-1899/1143)  29.1 W55-W65 S15-S10
      8 1722 1012 (S12W43 L=347)  1522    239        3 (1683/ 906-1774/1136)  59.7 W38-W49 S17-S05
      9  199  926 (N17E62 L=242)   688    111        2 ( 153/ 900- 247/ 954)   0.0 E68-E56 N15-N18
     10 1133  855 (S05W02 L=306)   659    197        0 (1109/ 769-1166/ 950)  60.9 W00-W05 S09-N00
     11  214  836 (N12E62 L=242)  1011    126        3 ( 178/ 784- 255/ 872) -80.5 E65-E56 N08-N14
     12  277  804 (N09E56 L=248)   718     99        1 ( 250/ 763- 300/ 854)  35.5 E59-E52 N07-N12
     13 1402  522 (S33W11 L=315)  1709    352        1 (1268/ 422-1500/ 651)  21.8 W00-W20 S36-S26
     14  845  220 (S40E41 L=264)  1966    250        3 ( 752/ 147- 949/ 295)  12.1 E58-E28 S45-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