Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  949 1640 (N32E14 L= 49)   272     77        0 ( 911/1619- 985/1658)  -9.5 E16-E10 N30-N32
      2  294 1523 (N18E62 L=  1)  3759    254        7 ( 203/1454- 379/1611)  32.7 E77-E54 N13-N24
      3  349 1465 (N14E53 L= 10)  2100    258        5 ( 282/1370- 415/1553)  71.6 E56-E49 N08-N20
      4  244 1398 (N10E62 L=  1)  1193    142        4 ( 196/1338- 292/1451)  49.4 E65-E56 N06-N13
      5 1692 1162 (N12W41 L=104)   774    218        1 (1657/1071-1731/1269)  69.0 W38-W44 N05-N18
      6  412 1232 (N00E41 L= 21)   371     89        0 ( 369/1200- 450/1252) -18.4 E44-E38 S01-N01
      7 1837 1141 (N13W55 L=118)  1143    132        3 (1793/1076-1871/1208) -41.2 W50-W59 N09-N16
      8  165 1065 (S10E63 L=360)  2100    174        8 ( 101/1014- 223/1147) -35.0 E73-E56 S13-S05
      9  644 1082 (S06E23 L= 39)   377    150        0 ( 619/1010- 667/1146)  82.9 E24-E22 S10-S02
     10  238  988 (S15E54 L=  8)   573    117        2 ( 213/ 943- 266/1062)  66.8 E57-E51 S17-S10
     11  378 1001 (S13E42 L= 21)   360    131        2 ( 331/ 961- 411/1031) -33.7 E45-E38 S15-S11
     12 1371  907 (S08W22 L= 85)   368    156        0 (1333/ 837-1395/ 976)  77.5 W20-W23 S12-S03
     13  733  934 (S14E17 L= 46)   266     98        0 ( 697/ 893- 752/ 975) -45.0 E19-E14 S16-S12
     14  208  875 (S22E59 L=  4)  1984    333        1 (  84/ 831- 365/ 912)   7.0 E83-E42 S23-S18
     15  426  750 (S28E38 L= 24)  1718    346        4 ( 310/ 642- 521/ 885)  36.0 E52-E30 S35-S19
     16 1883  839 (S03W65 L=128)   464     75        0 (1857/ 801-1902/ 862) -26.6 W61-W68 S05-S02
     17 1338  735 (S19W23 L= 86)   895    335        1 (1232/ 677-1430/ 822)  38.7 W15-W28 S22-S12
     18 1817  577 (S19W71 L=134)   951    125        2 (1782/ 527-1848/ 620)  90.0 W65-W77 S22-S15
     19  964  446 (S42W04 L= 67)  2713    499       10 ( 736/ 402-1197/ 490)  11.3 E14-W21 S45-S37
     20 1463  421 (S36W44 L=107)   367    112        0 (1415/ 398-1513/ 440)   6.3 W39-W48 S36-S34
  

    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