Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1664 1653 (N30W73 L= 54)   876     86        0 (1621/1635-1704/1670) -20.0 W67-W79 N28-N32
      2 1393 1545 (N31W37 L= 18)   450     70        0 (1364/1519-1433/1563)   0.0 W34-W40 N29-N32
      3  677 1331 (N30E18 L=323)  1943    522        3 ( 470/1247- 894/1441) -28.0 E36-E04 N22-N40
      4 1123 1132 (N11W08 L=349)   251     60        1 (1099/1103-1148/1163)  26.6 W05-W09 N09-N13
      5  445 1037 (N15E38 L=304)   319    147        0 ( 414/ 988- 505/1069)  23.2 E40-E32 N12-N16
      6  877 1018 (N08E09 L=332)   265     78        1 ( 859/ 975- 899/1061)  53.1 E10-E07 N06-N10
      7  263  981 (N13E54 L=287)   973    172        2 ( 205/ 919- 305/1043) -38.7 E60-E50 N09-N17
      8 1533  946 (S07W30 L= 11)   225     88        1 (1520/ 915-1557/ 993)  63.4 W29-W31 S08-S04
      9 1180  793 (S10W06 L=347)   661    139        1 (1158/ 730-1205/ 871)  63.4 W03-W07 S13-S04
     10 1401  732 (S17W19 L=360)   436    173        0 (1363/ 702-1462/ 768) -26.6 W16-W22 S19-S14
     11  660  598 (S14E30 L=311)   762    297        0 ( 606/ 542- 731/ 659) -29.7 E32-E25 S17-S09
     12  578  514 (S19E39 L=302)   332     89        2 ( 559/ 463- 591/ 558)  66.8 E40-E37 S22-S15
     13  860  373 (S33E24 L=317)   879    168        2 ( 795/ 330- 930/ 436)  21.0 E30-E17 S35-S28
  

    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