Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  423 1604 (N46E56 L= 21)  2114    193        1 ( 362/1533- 490/1677) -14.7 E84-E42 N40-N51
      2  673 1637 (N48E27 L= 49)   354     74        0 ( 644/1599- 694/1666) -35.5 E30-E23 N45-N50
      3 1306 1593 (N39W28 L=104)   295     80        0 (1262/1580-1344/1604)  -8.1 W24-W31 N38-N39
      4 1158 1549 (N38W15 L= 91)   276     96        0 (1146/1514-1175/1598)  81.9 W13-W15 N34-N41
      5 1545 1502 (N30W45 L=121)   934    160        0 (1480/1438-1587/1542) -58.0 W40-W47 N25-N33
      6  861 1354 (N26E09 L= 68)   283     75        1 ( 841/1315- 879/1389) -78.7 E09-E07 N23-N28
      7 1715 1344 (N18W54 L=130)   395     58        0 (1695/1318-1736/1376) -71.6 W52-W55 N16-N19
      8  634 1231 (N20E25 L= 52)   370    170        0 ( 608/1173- 702/1267)  39.8 E26-E19 N16-N22
      9  324  994 (N06E49 L= 28)   646    143        1 ( 267/ 946- 384/1032)  26.6 E54-E43 N03-N08
     10  461  995 (N06E37 L= 39)   308     87        0 ( 419/ 980- 511/1011)  -8.1 E40-E33 N05-N07
     11  496  884 (S01E35 L= 41)   820    257        2 ( 465/ 775- 558/ 998)  59.7 E37-E30 S07-N05
     12 1722  825 (S14W48 L=124)   669    175        0 (1673/ 765-1780/ 899)  41.6 W43-W53 S17-S09
     13 1297  835 (S09W16 L= 92)   532    155        2 (1256/ 782-1350/ 896) -63.4 W13-W19 S12-S04
     14  274  771 (S08E57 L= 20)  1134    178        3 ( 199/ 717- 316/ 823) -28.6 E64-E52 S11-S04
     15 1194  776 (S12W09 L= 85)   303     77        2 (1166/ 742-1222/ 812)  76.0 W06-W10 S13-S09
     16 1516  718 (S18W31 L=107)   321     55        2 (1499/ 690-1534/ 752) -76.0 W29-W32 S20-S16
     17  244  658 (S15E65 L= 11)  1556    134        3 ( 222/ 585- 268/ 724)  42.3 E72-E59 S20-S10
     18  721  689 (S14E22 L= 54)   240     89        0 ( 682/ 671- 762/ 705)   0.0 E24-E19 S15-S12
     19 1349  587 (S25W19 L= 95)   379    112        1 (1318/ 540-1389/ 629)  45.0 W16-W21 S28-S22
     20  472  571 (S21E43 L= 33)   479     78        0 ( 435/ 552- 518/ 592)   6.3 E47-E38 S22-S19
     21  354  484 (S27E61 L= 15)   499    124        0 ( 338/ 437- 388/ 536)  33.7 E65-E53 S31-S23
     22  754  493 (S28E23 L= 53)   382     90        1 ( 705/ 479- 804/ 516)   0.0 E26-E19 S28-S26
     23  460  374 (S36E57 L= 19)   737     97        0 ( 417/ 361- 514/ 391)  -4.8 E63-E49 S37-S34
     24  856  360 (S39E19 L= 57)   320     48        1 ( 828/ 343- 882/ 382)  21.8 E21-E16 S39-S36
  

    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