Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  334 1153 (S10E47 L=263)   961    194        2 ( 253/1094- 395/1224)  45.0 E54-E43 S14-S05
      2  779 1043 (S10E15 L=295)   205     55        0 ( 738/1023- 804/1065)   0.0 E17-E12 S11-S08
      3  697 1025 (S12E19 L=291)   275     57        0 ( 667/1004- 732/1054) -14.0 E21-E16 S13-S11
      4  378  924 (S23E41 L=269)  1263    370        2 ( 257/ 837- 500/1050)  40.1 E51-E32 S29-S13
      5  147  957 (S23E63 L=247)  1754    299        1 ( 119/ 863- 183/1030)  68.2 E66-E59 S28-S18
      6  609  976 (S17E24 L=286)   395    144        1 ( 544/ 946- 678/1015)  -5.7 E29-E19 S17-S15
      7 1842  934 (N06W58 L=  8)   891    125        3 (1815/ 891-1867/ 986)  80.5 W54-W61 N03-N09
      8 1024  671 (S27W07 L=317)   315    100        0 ( 980/ 637-1055/ 721)  74.1 W05-W08 S30-S23
      9  510  632 (S40E29 L=281)   357     84        0 ( 480/ 610- 552/ 651)  29.7 E32-E25 S41-S37
     10  314  580 (S46E50 L=260)   474     38        0 ( 297/ 551- 329/ 611)  76.0 E51-E47 S48-S43
     11 1633  568 (S19W51 L=  2)   293     81        0 (1592/ 555-1660/ 584)  31.0 W48-W53 S20-S17
     12 1615  499 (S23W53 L=  3)   763    188        0 (1541/ 457-1694/ 564)  48.4 W48-W57 S27-S17
     13 1572  337 (S33W60 L= 10)  2146    437        5 (1466/ 297-1646/ 371)  17.4 W49-W67 S36-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