Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  646 1724 (N58E12 L=246)  3224    518        6 ( 436/1618- 840/1829)   5.5 E39-W13 N54-N62
      2 1558 1686 (N28W61 L=319)   733    118        3 (1527/1642-1598/1718)   4.8 W55-W67 N25-N30
      3 1627 1589 (N21W59 L=317)  3450    263       17 (1528/1489-1718/1689)  77.0 W48-W70 N13-N26
      4 1204 1528 (N28W24 L=283)   531    216        1 (1129/1449-1272/1606) -77.0 W22-W25 N21-N34
      5 1560 1500 (N18W47 L=306)   430    140        1 (1520/1436-1585/1547)  82.9 W45-W49 N13-N21
      6  438 1442 (N41E34 L=225)   380     84        2 ( 397/1422- 481/1458)  -6.3 E38-E29 N39-N42
      7  279 1385 (N41E52 L=206)  1008    125        3 ( 247/1308- 310/1428) -76.0 E56-E47 N35-N43
      8 1679 1310 (N04W48 L=307)   324     88        0 (1650/1289-1717/1337) -53.1 W46-W50 N02-N06
      9  577  787 (S01E32 L=227)   305     80        3 ( 556/ 748- 603/ 829)  56.3 E33-E29 S03-N00
     10 1622  757 (S26W33 L=291)   249     55        2 (1597/ 731-1643/ 778) -53.1 W31-W34 S28-S24
     11  877  749 (S10E14 L=244)   201     96        0 ( 845/ 708- 914/ 774)  18.4 E17-E11 S11-S08
     12 1345  538 (S34W09 L=268)  1759    519        0 (1139/ 432-1508/ 697)   8.1 E05-W23 S38-S27
     13 1496  430 (S46W21 L=279)   611    151        2 (1443/ 387-1554/ 488)  29.1 W15-W26 S49-S43
     14  423  420 (S20E60 L=199)   931    115        4 ( 374/ 388- 471/ 452) -51.3 E65-E56 S22-S17
     15  374  396 (S21E69 L=190)   941     82        2 ( 337/ 372- 413/ 414)   0.0 E79-E62 S22-S19
  

    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