Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  784 1648 (N33E23 L=132)   621    114        3 ( 741/1619- 845/1683)  -7.1 E26-E18 N30-N35
      2  272 1459 (N18E60 L= 96)   710    237        2 ( 240/1404- 302/1522) -41.6 E65-E54 N14-N22
      3  230 1304 (N08E60 L= 95)  1052    248        5 ( 193/1264- 261/1377) -41.2 E66-E55 N05-N12
      4 1838 1351 (N24W58 L=213)   893    270        1 (1781/1328-1892/1370)  -4.8 W51-W65 N23-N26
      5  787 1254 (N07E16 L=139)   387     94        1 ( 769/1203- 819/1302) -51.3 E17-E13 N04-N09
      6 1661 1060 (N03W41 L=196)   301     80        1 (1627/1034-1696/1084) -18.4 W37-W43 N02-N04
      7  262 1021 (S09E52 L=103)   846    190        1 ( 207/ 995- 321/1058)  16.7 E58-E47 S10-S06
      8 1664  866 (S08W43 L=198)   891    232        5 (1614/ 768-1709/ 984)  77.9 W40-W45 S14-N00
      9 1031  604 (S31W04 L=159)   335     90        0 ( 987/ 581-1084/ 643)  33.7 W01-W07 S32-S27
     10 1419  589 (S28W31 L=186)   227     45        0 (1392/ 573-1444/ 607)  33.7 W29-W32 S28-S26
     11 1616  352 (S40W58 L=213)   567    102        1 (1586/ 340-1652/ 367)  18.4 W55-W61 S41-S38
  

    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