Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1409 1633 (N32W46 L= 81)   434     48        1 (1383/1612-1440/1661) -14.0 W42-W48 N30-N33
      2 1544 1555 (N23W51 L= 86)   800    114        1 (1498/1508-1589/1608) -81.9 W48-W53 N20-N27
      3 1802 1449 (N09W70 L=105)  1268    115        5 (1771/1391-1845/1490) -81.9 W65-W75 N05-N12
      4 1782 1290 (N02W58 L= 93)  1247    206        1 (1739/1191-1813/1374)  84.3 W55-W60 S03-N07
      5 1327 1309 (N16W25 L= 60)   303    111        0 (1282/1280-1381/1330)   0.0 W21-W28 N14-N16
      6  944 1156 (N16E02 L= 33)   736    177        1 ( 860/1118-1023/1201) -41.2 E06-W02 N12-N20
      7  667 1142 (N22E19 L= 16)   468    141        2 ( 598/1116- 731/1177) -26.6 E23-E15 N18-N24
      8 1622  882 (S16W34 L= 69)  1594    449        2 (1481/ 777-1721/1057)  25.5 W22-W44 S19-S08
      9  915 1023 (N10E06 L= 29)   512    156        1 ( 875/ 980- 982/1054) -26.6 E08-E02 N07-N11
     10  524  874 (N09E34 L=  1)   643    186        1 ( 484/ 789- 554/ 961)  84.8 E35-E32 N03-N14
     11 1707  568 (S40W40 L= 75)  3886    527        2 (1513/ 425-1884/ 734)  10.5 W20-W64 S45-S34
     12  922  651 (S12E14 L= 21)   461    124        0 ( 871/ 607- 972/ 679) -56.3 E17-E12 S15-S09
     13  465  503 (S13E50 L=345)  1955    221        4 ( 437/ 405- 508/ 620)  54.5 E56-E44 S19-S05
     14 1307  318 (S46W00 L= 36)   669    112        2 (1249/ 292-1364/ 346)   6.3 E04-W05 S48-S44
  

    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