Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1233 1617 (N37W31 L=298)  1175    182        4 (1163/1540-1301/1681) -80.5 W28-W33 N31-N43
      2 1674 1553 (N20W61 L=327)  1977    265        2 (1625/1502-1735/1597)   4.1 W54-W68 N17-N23
      3  781 1365 (N32E08 L=258)  1496    355        3 ( 684/1223- 859/1492) -76.0 E13-E05 N22-N42
      4 1837 1182 (S04W61 L=327)  1896    395        2 (1763/1064-1923/1333) -69.8 W56-W69 S13-N06
      5  311 1066 (N22E48 L=218)  3891    748        4 ( 132/ 914- 541/1220) -33.3 E66-E31 N09-N32
      6 1134 1163 (N13W09 L=276)   504    182        1 (1041/1103-1220/1196)   0.0 W02-W14 N11-N14
      7 1575  824 (S17W30 L=296)  1777    340        1 (1491/ 682-1623/1004)  50.5 W22-W36 S24-S07
      8  260  908 (N13E55 L=211)   366     56        1 ( 236/ 883- 277/ 931) -90.0 E57-E53 N11-N14
      9  628  883 (N06E27 L=239)   364     53        1 ( 604/ 854- 655/ 920)  53.1 E28-E24 N04-N08
     10  716  827 (N02E22 L=244)   326     83        1 ( 677/ 790- 758/ 856) -45.0 E24-E19 N00-N03
     11  646  689 (S05E30 L=236)   486    187        0 ( 564/ 658- 728/ 709)   0.0 E36-E24 S06-S04
     12  444  422 (S20E56 L=210)  1294    336        3 ( 394/ 317- 517/ 527)  86.6 E60-E52 S28-S11
     13 1398  447 (S38W12 L=278)   418     36        1 (1374/ 425-1427/ 473) -26.6 W10-W14 S40-S36
  

    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