Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1219 1573 (N35E02 L=257)   251     49        1 (1197/1555-1243/1601)   0.0 E03-W00 N34-N37
      2  764 1522 (N20E29 L=230)   513    140        1 ( 745/1462- 784/1586) -58.0 E31-E26 N16-N24
      3  661 1525 (N18E36 L=223)   293    104        0 ( 643/1484- 676/1566) -45.0 E38-E33 N15-N20
      4 1074 1476 (N25E08 L=250)   432     80        1 (1035/1440-1114/1516) -26.6 E11-E05 N23-N26
      5  554 1468 (N12E41 L=218)   366     70        1 ( 525/1438- 575/1504) -53.1 E42-E39 N10-N14
      6  632 1375 (N08E32 L=227)   341     49        0 ( 616/1339- 652/1403) -76.0 E33-E30 N06-N10
      7  200 1113 (S16E61 L=198)  2091    349        2 ( 157/ 944- 249/1257) -84.3 E63-E58 S26-S06
      8 1318 1186 (N13W13 L=272)   244     70        0 (1275/1171-1358/1200)  31.0 W10-W15 N11-N14
      9 1107  959 (S05W06 L=265)   224     87        0 (1067/ 933-1142/1011) -26.6 W02-W08 S05-S02
     10 1185  759 (S14W16 L=275)   393     74        1 (1149/ 738-1218/ 786) -11.3 W13-W18 S16-S12
     11 1390  717 (S12W30 L=288)   215     70        0 (1364/ 687-1407/ 754)  90.0 W28-W30 S13-S09
     12  542  700 (S34E24 L=234)   657    128        2 ( 516/ 644- 581/ 745)  60.3 E26-E21 S37-S30
     13  342  641 (S43E43 L=216)  1120    233        1 ( 314/ 542- 383/ 729) -90.0 E45-E39 S50-S36
     14 1095  548 (S29W17 L=276)   399     80        0 (1048/ 531-1138/ 571)  18.4 W14-W20 S31-S27
     15  866  453 (S42W06 L=264)   239     46        1 ( 846/ 435- 888/ 480) -56.3 W04-W07 S43-S40
  

    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