Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1488 1782 (N37W63 L=316)   512     68        1 (1447/1763-1518/1795)  -5.2 W57-W68 N35-N37
      2 1375 1682 (N33W43 L=296)   336     50        1 (1349/1658-1404/1699)   8.1 W39-W46 N32-N34
      3 1438 1319 (N10W31 L=284)   344     71        0 (1412/1294-1474/1339)   0.0 W28-W33 N09-N11
      4  236 1278 (N32E54 L=198)   827    122        2 ( 209/1226- 272/1323) -35.0 E59-E49 N28-N35
      5  364 1242 (N28E40 L=213)   536    113        1 ( 326/1193- 395/1296) -49.4 E44-E37 N24-N31
      6  176 1190 (N28E61 L=192)   901    111        4 ( 132/1143- 210/1236)  32.0 E68-E56 N25-N30
      7 1274 1166 (N05W17 L=270)  1192    347        7 (1129/1099-1399/1211)  -3.2 W07-W25 N02-N07
      8 1846 1099 (S11W58 L=310)   347     53        1 (1825/1075-1863/1124) -90.0 W55-W59 S12-S09
      9  699 1080 (N12E18 L=235)   275     82        0 ( 667/1064- 740/1110) -36.9 E19-E15 N10-N13
     10  900 1018 (N04E07 L=246)   417    128        0 ( 841/ 985- 954/1050) -45.0 E10-E04 N01-N06
     11  200 1001 (N16E58 L=195)  1129    234        1 ( 120/ 959- 276/1043) -14.7 E69-E50 N12-N18
     12 1792  979 (S17W50 L=303)   383     56        1 (1771/ 947-1814/1008)  56.3 W48-W52 S18-S14
     13 1847  760 (S32W57 L=310)  3563    399        3 (1719/ 607-1968/ 887)  17.0 W43-W81 S39-S25
     14  241  739 (N00E60 L=193)  1194    112        1 ( 212/ 688- 270/ 800) -74.1 E63-E57 S03-N04
     15  447  747 (S03E41 L=211)   497    171        0 ( 387/ 712- 500/ 771) -29.7 E46-E37 S05-S01
     16  419  627 (S09E47 L=205)   781    198        1 ( 373/ 574- 490/ 706) -66.0 E50-E43 S13-S04
     17 1557  672 (S30W28 L=280)   303    111        0 (1508/ 650-1609/ 689)   0.0 W23-W32 S30-S29
     18  605  636 (S12E34 L=219)   365     89        0 ( 586/ 604- 627/ 688) -90.0 E35-E32 S14-S08
     19  670  591 (S16E31 L=222)   468    154        2 ( 637/ 537- 724/ 652)  29.1 E34-E25 S18-S13
     20  516  606 (S12E41 L=212)   400     87        1 ( 477/ 577- 554/ 640)   0.0 E43-E37 S13-S10
     21  506  522 (S17E45 L=208)  2035    426        9 ( 366/ 474- 651/ 584) -27.8 E55-E35 S21-S10
     22 1166  462 (S35E04 L=249)  1336    420        4 (1006/ 362-1336/ 571)  12.5 E17-W10 S38-S30
     23  773  518 (S22E27 L=226)   286     88        0 ( 760/ 468- 794/ 563)  50.2 E29-E24 S25-S19
     24  364  487 (S17E60 L=193)  1543    217        5 ( 327/ 409- 406/ 558)  70.0 E64-E54 S22-S11
     25  624  252 (S37E55 L=197)  1186    163        0 ( 584/ 195- 656/ 343)  21.8 E69-E44 S41-S31
  

    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