Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1300 1786 (N51E09 L=238)   697     87        0 (1258/1761-1344/1810)   7.1 E12-E04 N49-N53
      2  404 1627 (N13E62 L=184)   978     93        1 ( 366/1593- 438/1661)  59.0 E66-E59 N10-N15
      3  275 1431 (S01E63 L=184)   601     85        0 ( 247/1388- 297/1459) -18.4 E67-E58 S03-N00
      4 1673 1436 (N38W32 L=279)   403     23        0 (1651/1416-1694/1455)   0.0 W29-W34 N36-N40
      5  228 1328 (S08E64 L=183)   670     90        2 ( 207/1287- 247/1372)  90.0 E66-E61 S10-S04
      6  309 1227 (S12E52 L=195)   397    134        1 ( 241/1195- 345/1249)   0.0 E58-E47 S13-S11
      7 1330 1186 (N11W12 L=259)   525    110        2 (1281/1139-1372/1239) -18.4 W08-W15 N08-N13
      8  650 1171 (S08E25 L=222)   609    200        1 ( 615/1091- 718/1232)  84.3 E26-E22 S12-S02
      9  137 1171 (S18E72 L=175)  1892    119        4 (  90/1129- 205/1198)  10.8 E82-E61 S20-S15
     10  990 1089 (S04E04 L=243)   243     77        0 ( 962/1064-1011/1120)  90.0 E04-E02 S05-S01
     11  457  957 (S24E33 L=213)   789    211        0 ( 409/ 869- 537/1024)  61.4 E36-E28 S30-S18
     12 1267  781 (S12W20 L=267)   272    142        0 (1205/ 760-1337/ 807)  39.8 W17-W23 S15-S09
     13 1389  663 (S15W32 L=279)   338     83        0 (1348/ 636-1409/ 699)  78.7 W30-W33 S17-S12
     14  535  540 (S49E21 L=226)  1281    276        2 ( 413/ 510- 654/ 600)   6.8 E34-E09 S51-S45
     15 1652  554 (S12W56 L=303)   463    103        1 (1626/ 508-1681/ 597) -29.7 W51-W58 S14-S09
     16 1219  522 (S28W28 L=275)   481    119        1 (1160/ 501-1284/ 546)  20.6 W23-W31 S29-S25
     17 1582  408 (S22W61 L=308)  1228    136        4 (1523/ 355-1638/ 448)  69.4 W57-W64 S26-S18
     18 1462  412 (S26W51 L=297)   485     53        1 (1433/ 391-1498/ 435)  18.4 W48-W54 S27-S24
     19 1075  275 (S48W36 L=283)  1329    274        0 ( 950/ 214-1178/ 338)   2.0 W22-W50 S49-S46
  

    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