Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  263 1433 (N31E66 L=325)  2142    181        7 ( 224/1353- 304/1502) -20.6 E79-E55 N25-N34
      2  982 1469 (N32E01 L= 29)   324     56        0 ( 960/1432-1009/1499) -78.7 E02-W00 N29-N34
      3  876 1412 (N29E09 L= 21)   389    134        1 ( 830/1358- 908/1445) -39.8 E12-E06 N25-N31
      4  773 1303 (N22E16 L= 14)   220     77        0 ( 750/1278- 796/1325)  56.3 E17-E14 N20-N23
      5  507 1270 (N20E35 L=355)  1055    224        1 ( 407/1241- 610/1299)  -3.4 E43-E26 N18-N22
      6 1103 1249 (N18W06 L= 36)   207     75        0 (1066/1238-1138/1262) -11.3 W03-W08 N16-N18
      7  865 1164 (N13E09 L= 21)   289    107        0 ( 821/1147- 925/1180)   8.1 E12-E05 N12-N14
      8 1558 1069 (N04W35 L= 65)   257     69        0 (1527/1047-1588/1100)  21.8 W32-W37 N03-N06
      9 1619  971 (S02W39 L= 69)   830    250        0 (1597/ 865-1641/1092) -90.0 W37-W40 S08-N05
     10  618  973 (N02E26 L=  4)   237    104        0 ( 571/ 951- 665/ 991) -26.6 E28-E22 N00-N03
     11 1254  955 (S01W14 L= 44)   211     55        0 (1236/ 928-1272/ 987)  56.3 W12-W15 S02-N01
     12  795  807 (S08E15 L= 15)   425    133        0 ( 741/ 764- 850/ 840)  29.7 E18-E11 S10-S06
     13 1534  803 (S12W33 L= 63)   709    171        0 (1459/ 754-1613/ 836)  20.0 W27-W38 S14-S10
  

    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