Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  664 1712 (N24E46 L=240)   791    113        1 ( 619/1679- 721/1737)  -5.7 E50-E40 N21-N25
      2 1331 1621 (N38W01 L=286)  1292    377        1 (1172/1550-1486/1701)   2.3 E12-W13 N36-N39
      3  760 1465 (N11E27 L=258)   707    249        2 ( 693/1372- 832/1560) -28.1 E35-E20 N07-N15
      4  365 1496 (N04E57 L=229)   783    148        2 ( 328/1429- 394/1558) -48.8 E62-E51 N00-N08
      5 1604 1522 (N42W25 L=310)   307     46        1 (1582/1501-1624/1547) -26.6 W22-W26 N40-N43
      6 1613 1246 (N23W29 L=315)   309     87        0 (1571/1218-1652/1273)   0.0 W25-W32 N22-N24
      7  129 1123 (S21E72 L=214)   645    115        0 ( 105/1063- 159/1167)  40.6 E75-E67 S24-S18
      8 1835 1134 (N25W51 L=337)   527    127        0 (1789/1088-1869/1156)   0.0 W46-W55 N22-N26
      9 1869  888 (N12W61 L=347)  3268    437        9 (1775/ 784-1944/1030) -15.6 W47-W78 N07-N17
     10 1314  989 (S00W17 L=303)   205     84        0 (1276/ 971-1344/1019)  45.0 W14-W17 S01-N02
     11  863  956 (S14E07 L=279)   264     41        1 ( 839/ 929- 891/ 982)  90.0 E08-E05 S16-S12
     12 1222  804 (S13W17 L=303)   443    143        1 (1179/ 747-1264/ 873) -26.6 W12-W20 S14-S10
     13 1125  723 (S20W14 L=300)   384    126        0 (1057/ 706-1184/ 736)  23.2 W10-W17 S21-S18
     14 1836  708 (N02W65 L=351)   867     74        0 (1793/ 685-1877/ 730)  20.0 W60-W71 N00-N04
     15  269  657 (S48E54 L=232)   475     48        1 ( 238/ 643- 304/ 675)   4.8 E59-E47 S49-S46
     16  986  659 (S27W09 L=294)   250     99        0 ( 941/ 647-1035/ 671)  31.0 W06-W11 S29-S25
     17 1588  522 (S16W52 L=338)  1128    215        3 (1486/ 489-1685/ 556)  32.7 W46-W60 S21-S12
     18  713  464 (S48E03 L=283)   384     48        1 ( 683/ 441- 741/ 490)   0.0 E05-W00 S49-S46
     19  995  376 (S44W23 L=308)   482    105        0 ( 962/ 348-1047/ 411)  -6.3 W18-W27 S45-S42
     20 1398  350 (S31W51 L=337)   316     56        0 (1369/ 332-1428/ 369)  45.0 W49-W53 S33-S29
     21 1502  299 (S30W65 L=351)   709     89        1 (1464/ 272-1533/ 328)   4.1 W58-W72 S30-S28
  

    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