Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  565 1693 (N57E39 L= 75)   682     79        1 ( 521/1672- 612/1711) -10.6 E47-E31 N54-N58
      2 1101 1240 (N18W08 L=122)   338    118        0 (1074/1183-1118/1290) -90.0 W06-W08 N14-N21
      3 1483 1246 (N13W32 L=146)   265     56        0 (1452/1228-1512/1268) -26.6 W30-W34 N11-N14
      4  304 1209 (N24E51 L= 63)   331     94        0 ( 270/1182- 344/1243) -24.0 E55-E46 N21-N26
      5 1563 1109 (N04W35 L=149)   741    191        0 (1528/1011-1588/1195)  84.8 W33-W37 S02-N09
      6 1783  760 (S22W53 L=167)  1652    191        2 (1730/ 697-1820/ 856)  56.3 W47-W56 S26-S16
      7 1770  577 (S35W57 L=171)  1697    140        1 (1738/ 515-1801/ 639) -30.6 W49-W71 S42-S29
      8  391  598 (S15E51 L= 63)   506     79        0 ( 353/ 575- 434/ 619)   6.3 E55-E46 S15-S13
      9 1365  545 (S29W17 L=131)   753    149        2 (1308/ 507-1431/ 590)  24.0 W12-W21 S31-S26
     10 1124  461 (S31E01 L=113)   586     77        1 (1081/ 438-1170/ 490)  21.8 E03-W02 S32-S29
     11  967  344 (S38E15 L= 99)   576    150        0 ( 899/ 312-1030/ 388)  18.4 E20-E08 S40-S35
     12 1362  296 (S50W18 L=132)   408     73        0 (1337/ 267-1390/ 327)  51.3 W16-W20 S52-S47
     13  735  269 (S42E38 L= 76)   781    120        1 ( 671/ 248- 798/ 290)   4.1 E45-E31 S43-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