Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  722 1822 (N35E51 L=300)   434     48        0 ( 708/1795- 736/1852) -39.8 E55-E48 N32-N37
      2  600 1745 (N26E54 L=297)   876    142        1 ( 563/1682- 627/1787) -41.6 E61-E49 N21-N29
      3 1202 1662 (N36E08 L=343)  1710    288        3 (1107/1537-1289/1741) -24.0 E17-W01 N29-N41
      4  824 1586 (N20E28 L=323)   459    142        0 ( 770/1552- 893/1607)  50.2 E30-E24 N16-N22
      5  641 1457 (N08E34 L=317)   428    123        1 ( 625/1397- 659/1512) -54.5 E36-E31 N04-N11
      6  485 1433 (N03E44 L=307)   587    138        1 ( 459/1376- 511/1495) -60.3 E46-E41 N00-N07
      7 1607 1383 (N31W27 L= 19)  1358    208        1 (1521/1302-1674/1443) -13.0 W20-W33 N26-N33
      8  907 1411 (N12E17 L=334)   231     54        1 ( 879/1386- 926/1430) -18.4 E18-E15 N10-N12
      9 1283 1254 (N12W08 L=360)   549    176        0 (1258/1173-1332/1318)  90.0 W07-W10 N07-N17
     10 1488 1156 (N13W23 L= 14)   622    260        0 (1423/1056-1557/1266) -31.6 W16-W29 N08-N17
     11  368 1207 (S12E46 L=305)   503    163        0 ( 303/1192- 454/1221)  18.4 E51-E39 S13-S09
     12  138 1144 (S19E72 L=279)   598     70        2 ( 118/1111- 156/1177) -53.1 E75-E68 S20-S16
     13  189 1075 (S22E62 L=289)  1266    184        2 ( 142/ 999- 255/1121)  34.7 E69-E54 S27-S18
     14  384 1032 (S22E41 L=310)   289    101        0 ( 367/ 992- 414/1079) -45.0 E43-E38 S23-S18
     15  509 1016 (S20E31 L=320)   221     60        0 ( 478/1000- 542/1040)  36.9 E33-E29 S21-S17
     16  470  770 (S36E31 L=320)   534    129        0 ( 410/ 741- 533/ 795)  24.4 E36-E25 S38-S32
     17 1617  607 (S12W50 L= 41)   314     74        0 (1575/ 593-1647/ 630)  45.0 W47-W52 S14-S10
     18 1589  478 (S20W56 L= 47)  2333    546        3 (1413/ 341-1745/ 627)  74.9 W51-W62 S32-S06
     19 1238  544 (S28W28 L= 19)   883    181        1 (1158/ 506-1327/ 604)  61.4 W24-W31 S32-S21
     20  445  530 (S53E34 L=317)   331     27        1 ( 423/ 508- 467/ 552)  45.0 E36-E30 S55-S50
     21 1752  495 (S13W73 L= 64)  1559    130        4 (1707/ 440-1799/ 548)  60.3 W68-W80 S16-S09
     22 1060  376 (S44W26 L= 18)   396     59        1 (1018/ 357-1094/ 389)  21.8 W23-W29 S45-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