Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1175 1674 (N45W27 L=235)   762    155        2 (1123/1637-1251/1711) -53.1 W22-W30 N40-N49
      2  561 1617 (N52E33 L=175)   865    166        2 ( 489/1592- 648/1640)  -2.9 E42-E22 N50-N53
      3  746 1543 (N43E13 L=195)   659    220        4 ( 656/1484- 828/1587) -35.5 E21-E06 N37-N47
      4 1611 1536 (N26W55 L=263)   586     81        1 (1566/1510-1642/1560) -31.0 W50-W58 N24-N27
      5 1135 1509 (N34W16 L=225)  1303    329        3 ( 994/1481-1294/1530) -12.8 W05-W27 N30-N37
      6 1773 1434 (N17W66 L=274)  1427    133        5 (1716/1393-1815/1476) -45.0 W61-W72 N13-N20
      7  317 1111 (N19E49 L=159)   437     97        1 ( 274/1088- 360/1136) -12.5 E53-E44 N17-N21
      8  526 1017 (N12E32 L=176)   327    103        1 ( 482/ 986- 578/1037)   8.1 E35-E28 N10-N12
      9  343  975 (N11E47 L=161)   308     89        0 ( 327/ 943- 368/1020) -68.2 E48-E45 N08-N13
     10  156  861 (N05E71 L=137)  1185    120        2 ( 127/ 819- 190/ 918) -32.0 E75-E65 N02-N07
     11  808  869 (S00E15 L=193)   255     62        1 ( 776/ 842- 838/ 889) -33.7 E16-E13 S01-N01
     12 1240  772 (S12W10 L=218)   786    317        3 (1151/ 670-1333/ 884)  40.2 W03-W16 S17-S06
     13 1141  788 (S10W04 L=212)   572    227        1 (1086/ 726-1182/ 870)  49.4 W00-W07 S13-S05
     14  409  802 (S00E44 L=164)   774    227        2 ( 304/ 762- 503/ 839) -18.4 E52-E37 S03-N02
     15 1573  722 (S21W32 L=240)   459     89        1 (1535/ 696-1613/ 746)  21.8 W29-W35 S22-S20
     16 1271  627 (S22W10 L=218)   469    165        1 (1232/ 578-1305/ 708)  63.4 W07-W12 S25-S17
     17 1326  670 (S20W14 L=222)   223     55        0 (1312/ 640-1339/ 700) -90.0 W12-W14 S22-S18
     18  587  643 (S12E34 L=174)   270     78        1 ( 564/ 612- 606/ 676)  45.0 E36-E31 S13-S09
     19 1360  610 (S25W16 L=224)   646    164        1 (1290/ 585-1433/ 645)   5.2 W10-W21 S26-S23
     20  740  416 (S29E30 L=178)   599    123        1 ( 705/ 361- 788/ 457)  33.7 E35-E26 S32-S25
  

    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