Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1279 1588 (N40W04 L=141)   604    170        1 (1207/1544-1339/1636) -15.3 E02-W09 N37-N41
      2  640 1507 (N19E36 L=101)   918    227        2 ( 612/1425- 674/1609) -47.7 E42-E31 N14-N26
      3 1815 1402 (N41W62 L=199)   805     82        0 (1782/1364-1842/1431) -23.2 W56-W66 N38-N42
      4 1680 1275 (N28W41 L=177)   299    122        0 (1621/1237-1714/1297) -14.0 W35-W44 N25-N28
      5 1791 1211 (N26W53 L=189)   390     90        2 (1773/1169-1804/1256)  71.6 W50-W54 N23-N29
      6  307 1218 (S04E53 L= 84)   985    127        3 ( 252/1185- 363/1246)  24.0 E58-E48 S06-S01
      7 1720 1066 (N15W46 L=183)   397     80        1 (1699/1030-1748/1100)  68.2 W44-W48 N12-N17
      8 1771 1001 (N13W52 L=188)   434     42        0 (1755/ 971-1787/1033) -76.0 W50-W53 N10-N14
      9 1023  910 (S08W02 L=139)   224     60        1 ( 999/ 882-1049/ 934)  63.4 W01-W03 S10-S06
     10 1103  841 (S11W08 L=145)   275     98        1 (1073/ 809-1151/ 866)  31.0 W06-W11 S12-S08
     11 1031  809 (S14W05 L=142)   228    118        0 (1012/ 754-1057/ 860)  90.0 W04-W05 S17-S10
     12  807  711 (S25E07 L=130)   224    113        0 ( 754/ 685- 846/ 741)  39.8 E10-E04 S27-S22
     13 1702  597 (S12W59 L=196)   665     98        2 (1674/ 566-1726/ 629)  78.7 W54-W62 S14-S09
     14 1509  441 (S26W51 L=187)   357     79        0 (1472/ 417-1545/ 466)  59.0 W48-W52 S28-S23
  

    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