Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  631 1803 (N59E33 L=191)   706     97        1 ( 597/1768- 666/1829)  51.3 E37-E27 N55-N62
      2 1628 1610 (N30W56 L=280)  1631    198        0 (1546/1525-1681/1668) -68.2 W50-W59 N23-N34
      3  937 1609 (N37W01 L=224)   531     85        0 ( 905/1581- 980/1632)  14.0 E01-W03 N35-N39
      4 1278 1558 (N30W24 L=247)   648    218        0 (1197/1496-1362/1632) -57.5 W19-W28 N24-N35
      5 1792 1342 (N11W59 L=283)   766    127        0 (1773/1277-1815/1405)  76.0 W57-W61 N06-N14
      6  312  901 (S01E49 L=175)   928    194        0 ( 239/ 838- 380/ 945) -32.5 E55-E43 S05-N02
      7  325  697 (S13E53 L=171)   318     53        2 ( 301/ 675- 354/ 725) -71.6 E55-E50 S14-S11
      8  269  619 (S17E62 L=161)  1721    225        8 ( 218/ 536- 338/ 684)  36.9 E73-E55 S22-S13
      9  380  624 (S18E50 L=173)   336     86        1 ( 348/ 594- 413/ 660)  20.6 E54-E46 S19-S16
     10  478  531 (S25E45 L=178)   882    245        1 ( 412/ 448- 584/ 584)  15.9 E56-E35 S29-S22
     11  462  329 (S39E63 L=160)  1020    128        5 ( 443/ 263- 485/ 391)  18.4 E80-E53 S43-S34
     12 1196  297 (S52W05 L=229)   676     97        0 (1146/ 270-1246/ 318)  12.5 W00-W10 S53-S49
     13  946  184 (S59E26 L=198)  1675    143        2 ( 886/ 153-1003/ 228)  14.7 E35-E16 S63-S55
     14 1267  169 (S68W16 L=240)   469     85        0 (1231/ 157-1311/ 185)   0.0 W09-W23 S69-S65
  

    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