Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  636 1701 (N27E44 L=182)   427     90        0 ( 621/1654- 660/1736) -74.1 E46-E41 N23-N30
      2  531 1662 (N23E50 L=176)   398     78        1 ( 493/1642- 574/1682)  31.0 E53-E47 N21-N25
      3 1484 1527 (N34W20 L=246)  1392    321        1 (1369/1399-1571/1634) -33.7 W09-W27 N27-N40
      4  871 1533 (N20E20 L=206)   693    191        0 ( 853/1447- 891/1631) -69.0 E24-E16 N14-N27
      5  296  944 (S24E49 L=177)  1053    156        1 ( 272/ 876- 339/1031) -66.0 E51-E44 S27-S18
      6 1270  936 (S07W16 L=242)   332    128        0 (1232/ 877-1291/ 976) -45.0 W13-W18 S09-S04
      7  142  818 (S33E73 L=153)   799    123        0 ( 113/ 794- 187/ 869) -35.5 E79-E64 S34-S29
      8  404  847 (S28E39 L=187)   269     66        0 ( 366/ 834- 440/ 865)  -8.1 E42-E35 S29-S27
      9 1676  516 (S20W60 L=286)   359     64        0 (1643/ 491-1706/ 545)  63.4 W58-W62 S21-S17
     10  435  479 (S53E41 L=184)   648     73        1 ( 392/ 460- 475/ 503)   4.4 E48-E35 S55-S51
     11 1282  311 (S43W43 L=269)   513     48        0 (1250/ 284-1310/ 333)  56.3 W40-W46 S45-S41
     12 1552  290 (S35W72 L=298)   964     64        1 (1512/ 271-1592/ 313)   7.6 W65-W81 S36-S33
     13 1355  259 (S44W55 L=281)   437     67        1 (1326/ 230-1386/ 287) -51.3 W51-W58 S46-S41
  

    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