Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  441 1622 (N14E59 L=168)  1890    370        6 ( 330/1533- 548/1698)  51.8 E64-E51 N06-N21
      2  648 1613 (N19E41 L=185)   593    268        0 ( 617/1523- 687/1696) -35.5 E48-E34 N13-N23
      3  964 1582 (N25E20 L=206)   314     58        0 ( 941/1552- 986/1615)  90.0 E21-E19 N22-N27
      4  604 1427 (N06E36 L=190)   488    101        1 ( 557/1406- 648/1449)  31.0 E39-E33 N04-N08
      5 1519 1284 (N23W22 L=248)   825    190        2 (1453/1200-1557/1384) -38.7 W15-W25 N19-N27
      6 1216 1294 (N15W03 L=230)   400    139        0 (1162/1236-1247/1356)  77.5 W01-W04 N10-N19
      7  487 1194 (S10E37 L=190)   575    177        0 ( 452/1107- 510/1284) -73.3 E38-E35 S14-S04
      8  356 1074 (S19E44 L=183)   642    219        0 ( 282/1046- 439/1110)  26.6 E50-E37 S21-S15
      9  754 1015 (S13E15 L=211)   316    146        0 ( 692/ 969- 818/1037)  49.4 E17-E11 S17-S10
     10 1272  784 (S12W21 L=247)   229     68        1 (1233/ 767-1302/ 799)  26.6 W18-W22 S12-S10
     11  268  761 (S41E48 L=178)   636    136        1 ( 230/ 739- 316/ 791)   6.3 E52-E43 S42-S38
     12  847  754 (S25E03 L=224)   214     68        0 ( 833/ 715- 860/ 790) -53.1 E03-W00 S27-S22
     13 1058  681 (S23W12 L=238)   591    186        2 ( 974/ 652-1133/ 726)  15.3 W06-W17 S26-S18
     14  944  591 (S32W09 L=235)  1101    292        2 ( 812/ 514-1090/ 687)   0.0 E02-W20 S34-S29
     15 1567  574 (S14W48 L=274)   701    119        1 (1528/ 523-1617/ 604)  66.8 W45-W51 S17-S10
     16 1433  308 (S32W55 L=281)   400     48        1 (1410/ 287-1456/ 324)  33.7 W52-W56 S33-S30
     17 1062  241 (S51W38 L=264)  2324    347        5 (1008/ 164-1119/ 323) -26.6 W28-W48 S56-S45
     18 1360  270 (S37W53 L=279)   696    114        1 (1339/ 232-1388/ 305) -33.7 W49-W55 S39-S35
     19 1197  236 (S46W46 L=272)   996    152        2 (1157/ 192-1257/ 275)  12.5 W41-W51 S48-S43
  

    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