Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  660 1561 (N21E37 L=181)   819    247        1 ( 627/1485- 699/1658) -34.7 E44-E31 N16-N26
      2  510 1595 (N20E50 L=168)   437    114        0 ( 459/1577- 550/1622)  26.6 E54-E47 N18-N22
      3  612 1464 (N14E37 L=182)   263    103        0 ( 578/1432- 635/1493) -26.6 E40-E34 N12-N15
      4 1598 1264 (N25W31 L=250)   489     70        2 (1572/1230-1627/1307) -45.0 W29-W34 N23-N27
      5 1227 1140 (N09W09 L=227)   317     41        1 (1199/1115-1251/1164) -18.4 W07-W10 N07-N10
      6  165 1018 (S21E63 L=156)   654    152        2 ( 133/ 973- 196/1059)  54.5 E66-E59 S24-S17
      7 1850  996 (N16W59 L=277)   399    103        0 (1823/ 965-1872/1016) -18.4 W55-W61 N14-N16
      8 1735  957 (N10W48 L=266)   413    103        2 (1706/ 924-1764/1004) -38.7 W44-W50 N08-N12
      9  619  855 (S21E21 L=197)   763    310        2 ( 542/ 741- 699/ 986)  69.8 E25-E18 S30-S11
     10 1174  825 (S11W13 L=232)   496    184        2 (1121/ 771-1233/ 892)  54.5 W10-W16 S14-S06
     11 1039  776 (S17W07 L=225)   302    121        0 ( 979/ 755-1098/ 806)   0.0 W02-W10 S17-S15
     12 1661  543 (S15W57 L=275)  1110    129        2 (1620/ 505-1713/ 578)  50.2 W52-W61 S17-S11
     13 1046  500 (S33W16 L=234)   395     54        2 (1013/ 474-1082/ 523)  26.6 W13-W17 S35-S31
     14 1512  366 (S29W55 L=273)   633     79        0 (1486/ 343-1538/ 404) -45.0 W51-W57 S30-S26
  

    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