Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1093 1707 (N49W23 L=180)  2099    390        4 ( 916/1666-1275/1742) -12.7 W06-W37 N43-N52
      2 1576 1690 (N35W67 L=223)  1837    146        2 (1504/1657-1649/1716)  -4.1 W55-W84 N33-N36
      3 1104 1568 (N39W17 L=174)   874    243        3 ( 991/1530-1223/1597) -19.4 W08-W25 N34-N42
      4 1776 1468 (N17W69 L=226)   755    100        0 (1739/1431-1808/1509) -63.4 W67-W72 N14-N20
      5 1026 1339 (N25W05 L=162)   430    152        0 ( 953/1323-1100/1356)  -5.7 W00-W10 N24-N26
      6 1481 1328 (N16W35 L=192)   747    264        1 (1368/1288-1584/1352) -29.7 W27-W41 N11-N19
      7  204 1084 (N20E62 L= 95)  1350    270        2 ( 185/ 958- 233/1213) -66.4 E66-E58 N11-N27
      8 1227 1169 (N12W15 L=171)   245     93        0 (1188/1136-1257/1196)  18.4 W11-W17 N10-N12
      9 1100 1122 (N11W06 L=163)   403    144        1 (1046/1083-1158/1173) -39.8 W03-W09 N08-N14
     10 1854 1024 (S10W60 L=217)  3294    417       10 (1777/ 925-1920/1165)  78.7 W51-W70 S16-S01
     11  536 1001 (N12E31 L=126)   645    194        1 ( 503/ 924- 565/1094)  84.3 E34-E29 N07-N17
     12 1637 1055 (S03W40 L=197)   272     66        1 (1602/1038-1671/1076) -21.8 W37-W42 S04-S01
     13 1210  968 (N00W10 L=167)   433    206        0 (1115/ 954-1297/ 992)  -5.2 W04-W15 S01-N01
     14 1786  932 (S14W51 L=208)   665     94        2 (1755/ 900-1824/ 979)  53.1 W48-W55 S15-S10
     15  661  906 (N05E24 L=133)   275     68        0 ( 634/ 881- 689/ 936) -45.0 E25-E22 N02-N06
     16 1379  824 (S11W18 L=175)  1105    316        4 (1312/ 678-1458/ 905)  50.2 W12-W24 S19-S06
     17 1243  805 (S10W10 L=166)   562    180        3 (1195/ 771-1300/ 864) -63.4 W06-W12 S12-S06
     18 1868  782 (S26W63 L=220)  1344    110        2 (1823/ 745-1910/ 836)   8.7 W56-W70 S28-S23
     19  376  572 (S13E54 L=102)  3555    526        6 ( 245/ 402- 490/ 762) -78.7 E61-E47 S25-N00
     20  244  662 (S07E65 L= 92)  1473    141        2 ( 211/ 600- 286/ 732)  69.4 E70-E61 S10-S02
     21  509  640 (S10E40 L=117)   768    159        3 ( 458/ 597- 565/ 710) -63.4 E42-E36 S13-S05
     22  420  637 (S09E47 L=109)   808    172        1 ( 378/ 577- 473/ 701) -71.6 E49-E44 S13-S04
     23 1431  557 (S30W20 L=177)   791    155        1 (1384/ 503-1478/ 621)  36.9 W15-W23 S33-S26
     24  601  510 (S19E38 L=119)   455     80        1 ( 578/ 460- 618/ 550)  74.1 E39-E35 S23-S16
     25  587  343 (S32E48 L=109)   417     45        1 ( 563/ 325- 617/ 364)   0.0 E51-E44 S32-S29
     26 1017  251 (S47E18 L=138)  1006    185        1 ( 954/ 192-1089/ 317)  24.0 E27-E09 S52-S41
  

    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