Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1550 1734 (N28W67 L=315)   755     68        1 (1516/1696-1572/1765)  24.0 W61-W72 N25-N29
      2  960 1597 (N39W14 L=263)   381    138        0 ( 887/1578-1023/1612) -16.7 W08-W18 N37-N41
      3 1709 1505 (N11W61 L=310)  2159    308        2 (1579/1410-1820/1574) -45.0 W51-W68 N02-N17
      4  687 1219 (N24E15 L=234)   281    100        0 ( 645/1193- 737/1240) -18.4 E17-E11 N22-N25
      5 1271 1159 (N06W17 L=266)   478    107        0 (1214/1137-1326/1177) -26.6 W13-W20 N03-N07
      6 1073 1016 (N03W02 L=251)   562    178        0 (1002/ 980-1147/1077)   6.3 E02-W07 N01-N05
      7 1797  936 (S22W48 L=297)  1273    156        2 (1751/ 865-1851/1000)  66.8 W43-W54 S25-S17
      8  182  944 (N20E62 L=187)   464     83        0 ( 152/ 907- 216/ 970)  20.6 E66-E57 N17-N21
      9  524  885 (N09E33 L=216)   882    203        1 ( 446/ 830- 578/ 965)  18.4 E39-E27 N05-N12
     10  256  920 (N17E54 L=195)   329     58        3 ( 229/ 891- 287/ 938)  -9.5 E56-E50 N15-N18
     11 1209  841 (S10W05 L=254)   375    125        0 (1172/ 797-1259/ 894) -76.0 W04-W07 S13-S05
     12  576  800 (N04E32 L=217)   263     99        0 ( 535/ 782- 626/ 813)  -9.5 E34-E28 N02-N04
     13 1653  743 (S29W32 L=281)   716    135        1 (1601/ 693-1707/ 784)  11.3 W27-W37 S30-S26
     14  402  476 (S11E58 L=191)  9555      0       29 ( 206/ 289- 571/ 747) -77.7 E72-E47 S25-N07
     15  902  522 (S20E21 L=228)   700    184        2 ( 875/ 435- 937/ 611)  45.0 E25-E16 S24-S15
     16  534  586 (S08E41 L=207)   294     43        1 ( 513/ 560- 558/ 605)  18.4 E42-E39 S09-S06
     17  637  535 (S13E37 L=212)   655    101        3 ( 596/ 485- 675/ 588)  74.1 E40-E34 S16-S09
     18  747  559 (S14E29 L=220)   242     62        2 ( 714/ 541- 773/ 576)   0.0 E30-E26 S15-S12
     19 1462  524 (S37W14 L=263)   889    139        2 (1423/ 478-1521/ 563)  11.3 W09-W19 S39-S33
     20  711  489 (S17E34 L=215)   267     48        1 ( 690/ 461- 725/ 517)  63.4 E35-E32 S19-S15
     21  617  448 (S18E42 L=207)  1142    160        3 ( 563/ 406- 671/ 495) -51.3 E46-E38 S20-S14
     22  637  244 (S32E57 L=192)  1529    222        1 ( 570/ 200- 677/ 312)  36.9 E66-E49 S35-S26
  

    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