Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1092 1833 (N49E16 L=195)  1246    226        2 (1054/1767-1131/1897) -71.6 E18-E11 N43-N58
      2  801 1506 (N18E23 L=188)   250     67        0 ( 787/1465- 819/1537) -78.7 E23-E21 N15-N20
      3  386 1511 (N13E53 L=158)   565    120        0 ( 342/1462- 435/1534)  45.0 E55-E48 N09-N14
      4 1465 1406 (N25W21 L=231)   659    136        0 (1431/1346-1500/1457)  69.4 W19-W23 N20-N28
      5  382 1404 (N06E49 L=161)   289     54        0 ( 366/1372- 405/1427)  71.6 E50-E47 N04-N07
      6  712 1387 (N09E25 L=185)   316     74        1 ( 676/1365- 751/1408)   0.0 E27-E22 N08-N10
      7 1755 1292 (N25W44 L=255)  1216    176        1 (1713/1216-1792/1387) -55.0 W40-W48 N20-N30
      8  816  968 (S13E11 L=199)  1184    303        3 ( 703/ 838- 893/1114)  69.8 E16-E08 S22-S03
      9 1646 1039 (N06W38 L=249)   492    113        0 (1596/1004-1690/1089) -12.5 W33-W42 N04-N08
     10  324  909 (S24E45 L=165)   810    234        0 ( 242/ 835- 379/ 977)  39.8 E53-E41 S29-S19
     11  556  856 (S24E27 L=184)   226     38        1 ( 539/ 829- 578/ 883)  90.0 E28-E25 S25-S22
     12  376  730 (S34E41 L=169)   973    196        0 ( 308/ 690- 442/ 775)  30.3 E47-E35 S37-S30
     13 1660  657 (S14W50 L=260)  4919    924        4 (1264/ 587-1894/ 717)  22.9 W24-W78 S27-S05
     14  982  543 (S36W07 L=218)   233     62        0 ( 946/ 533-1021/ 555)  24.5 W04-W09 S37-S34
  

    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