Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1517 1780 (N51W46 L=359)   588    155        0 (1507/1749-1529/1821)  53.1 W42-W51 N47-N55
      2 1570 1694 (N43W45 L=357)   510     58        1 (1538/1669-1597/1717) -11.3 W42-W47 N40-N45
      3 1640 1584 (N35W47 L=359)   445     77        0 (1609/1562-1672/1605) -26.6 W43-W49 N33-N36
      4  910 1553 (N29E09 L=303)   295     93        0 ( 859/1533- 959/1567)  -8.1 E12-E05 N27-N30
      5 1713 1513 (N30W51 L=  3)   648     77        1 (1680/1479-1742/1541) -90.0 W47-W53 N27-N31
      6 1012 1388 (N18E02 L=311)   447     98        0 ( 987/1333-1038/1437) -74.1 E03-W00 N14-N21
      7  854 1271 (N11E11 L=301)   737    194        0 ( 749/1231- 946/1339) -22.6 E17-E05 N08-N14
      8  415 1295 (N12E41 L=271)   656    166        2 ( 346/1243- 472/1334)  29.1 E45-E36 N09-N14
      9  245 1290 (N12E56 L=256)   451    109        0 ( 209/1265- 282/1328)  26.6 E60-E52 N10-N14
     10  312 1241 (N09E49 L=263)   964    161        2 ( 281/1165- 346/1325)  84.3 E51-E46 N04-N14
     11 1866 1215 (N11W61 L= 14)   452     90        1 (1830/1196-1895/1229)  -7.1 W57-W65 N10-N12
     12 1556 1073 (N01W33 L=346)   403     79        2 (1524/1043-1599/1099) -11.3 W31-W36 S01-N02
     13 1551  925 (S08W34 L=346)   876    270        2 (1477/ 818-1634/1028)  61.7 W29-W39 S14-S01
     14  185  811 (S16E62 L=250)  4636    736       14 ( 107/ 719- 263/ 916)  42.7 E74-E53 S21-S09
     15  323  833 (S15E48 L=264)   377     84        2 ( 288/ 810- 349/ 863)  -9.5 E51-E45 S16-S13
     16  789  665 (S26E15 L=297)  1175    301        2 ( 665/ 604- 858/ 786)  37.6 E23-E10 S30-S18
     17 1431  701 (S22W28 L=340)   235     66        0 (1400/ 684-1452/ 733)  45.0 W25-W29 S23-S20
     18 1673  616 (S26W48 L=  1)   719    157        1 (1606/ 557-1743/ 676)  41.6 W43-W53 S30-S22
     19 1158  632 (S27W10 L=322)   425     72        1 (1122/ 595-1193/ 671)  78.7 W07-W11 S29-S24
     20 1468  525 (S33W34 L=346)   473     99        0 (1410/ 491-1520/ 550)  29.7 W30-W37 S35-S31
  

    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