Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1448 1756 (N36W57 L=138)  1156     85        3 (1411/1715-1483/1788) -78.7 W51-W63 N33-N38
      2  782 1455 (N33E06 L= 75)  1755    371        1 ( 633/1379- 938/1522) -33.7 E16-W02 N25-N39
      3 1324 1425 (N19W27 L=108)  1183    353        1 (1166/1366-1459/1513)   0.0 W16-W39 N16-N21
      4  251 1337 (N37E55 L= 26)  1912    173        4 ( 214/1252- 293/1417) -47.3 E63-E48 N30-N43
      5  222 1117 (N23E56 L= 25)   457     74        1 ( 199/1079- 242/1150) -59.0 E58-E53 N20-N25
      6  244  969 (N14E54 L= 26)   603     68        1 ( 211/ 943- 282/ 996) -23.2 E57-E50 N12-N16
      7 1083  795 (S12E01 L= 79)   465    165        0 (1057/ 715-1104/ 872)  58.0 E04-W01 S16-S07
      8 1589  762 (S25W31 L=112)   252     41        0 (1572/ 740-1606/ 784) -56.3 W29-W32 S26-S23
      9  818  610 (S17E21 L= 59)   377     70        1 ( 790/ 576- 850/ 649) -78.7 E22-E20 S19-S14
     10 1501  584 (S35W22 L=103)   271     51        1 (1470/ 568-1529/ 600) -11.3 W19-W24 S35-S33
     11  347  460 (S17E65 L= 15)  1118    127        2 ( 314/ 405- 387/ 518)  38.7 E71-E61 S21-S13
     12  491  411 (S23E54 L= 27)   916    182        2 ( 445/ 339- 528/ 496)  67.4 E59-E51 S28-S16
     13  664  343 (S31E44 L= 37)   351     83        0 ( 626/ 314- 702/ 363)  12.5 E49-E40 S32-S30
  

    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