Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1181 1485 (N32W18 L=320)  1240    307        1 (1044/1432-1319/1528) -26.6 W07-W25 N26-N36
      2 1706 1472 (N23W60 L=  3)   437    101        0 (1659/1447-1747/1497) -35.5 W56-W64 N20-N25
      3  620 1291 (N26E24 L=278)   285     95        0 ( 577/1279- 678/1305) -15.9 E27-E20 N25-N27
      4  730 1169 (N18E17 L=285)   218     72        0 ( 688/1148- 763/1193)  11.3 E19-E14 N16-N18
      5  401 1144 (N19E42 L=261)   521     80        2 ( 377/1105- 430/1182)  53.1 E43-E39 N16-N20
      6 1783  797 (S19W53 L=355)  4088    547       11 (1683/ 610-1881/ 985)  51.0 W44-W64 S30-S09
      7 1544  854 (S11W31 L=334)   424    129        1 (1508/ 804-1572/ 900) -80.5 W28-W33 S14-S08
      8 1389  841 (S10W21 L=323)   793    172        3 (1339/ 786-1432/ 894)  66.8 W17-W23 S13-S06
      9  176  756 (S05E71 L=231)  4348    315        6 ( 135/ 627- 205/ 878)  61.9 E88-E64 S13-N02
     10 1465  710 (S19W25 L=327)   481    151        2 (1402/ 668-1512/ 757)  20.6 W20-W28 S21-S16
     11  862  697 (S13E14 L=288)   337     95        0 ( 814/ 675- 905/ 715) -21.8 E16-E11 S14-S10
     12  818  537 (S23E20 L=282)  1455    382        2 ( 754/ 453- 938/ 677) -66.8 E23-E12 S29-S13
     13  621  442 (S28E37 L=265)   693    139        1 ( 594/ 385- 649/ 498)  41.6 E42-E33 S31-S23
     14 1602  385 (S48W46 L=348)  1159     90        2 (1551/ 359-1638/ 421)  12.5 W39-W51 S50-S44
     15 1062  313 (S43E08 L=294)   628     59        1 (1032/ 283-1094/ 338)  26.6 E10-E04 S45-S40
  

    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