Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1476 1800 (N36W71 L=308)   567     43        0 (1452/1783-1498/1819)   0.0 W66-W78 N35-N37
      2 1526 1644 (N27W56 L=293)   334     65        0 (1502/1609-1545/1668)  63.4 W54-W58 N24-N28
      3 1724 1496 (N12W63 L=300)  1532    193        0 (1628/1456-1808/1544) -35.5 W55-W73 N07-N17
      4  338 1447 (N49E48 L=189)   348     39        0 ( 320/1422- 359/1468)  33.7 E50-E44 N47-N50
      5 1045 1371 (N26W11 L=247)   634    125        1 ( 984/1324-1099/1411) -60.3 W07-W12 N22-N29
      6 1088 1272 (N19W10 L=247)   465    170        0 (1007/1243-1160/1293) -11.3 W04-W14 N17-N20
      7 1632 1155 (S02W40 L=276)   716    146        2 (1605/1076-1659/1219)  66.8 W36-W43 S06-N01
      8 1102 1089 (N09W06 L=242)   285    144        0 (1068/1029-1135/1152)  35.5 W02-W09 N06-N11
      9  340 1073 (N25E45 L=192)   278     40        0 ( 312/1052- 363/1090) -31.0 E47-E42 N23-N26
     10  276  915 (N16E53 L=183)   644    128        1 ( 239/ 865- 311/ 951) -51.3 E56-E50 N13-N18
     11  205  857 (N14E62 L=174)   833    133        3 ( 186/ 801- 229/ 914)  60.3 E65-E59 N10-N17
     12 1878  874 (S27W58 L=295)   953     85        2 (1829/ 850-1923/ 897) -18.4 W51-W66 S28-S23
     13  486  858 (N10E37 L=200)   407     72        0 ( 457/ 820- 513/ 888) -63.4 E38-E34 N07-N11
     14  263  789 (N09E57 L=179)   699     90        1 ( 226/ 744- 305/ 814) -45.0 E61-E52 N06-N10
     15  457  551 (S08E49 L=188)   470    113        0 ( 414/ 506- 484/ 596) -80.5 E50-E47 S10-S04
     16 1213  530 (S26E02 L=235)   385     88        0 (1194/ 493-1235/ 578) -90.0 E02-W00 S29-S22
     17 1436  419 (S42W11 L=248)  2512    432        2 (1277/ 297-1603/ 554)  13.1 E04-W27 S47-S36
     18  659  489 (S16E37 L=200)  1055    247        1 ( 595/ 415- 727/ 551) -66.0 E40-E33 S21-S11
     19  805  439 (S22E30 L=207)   553    131        1 ( 746/ 409- 839/ 482)   6.3 E34-E25 S23-S19
     20  572  423 (S18E46 L=190)   328     67        0 ( 550/ 389- 599/ 449) -90.0 E47-E45 S20-S15
     21  387  365 (S19E71 L=166)  1231     64        1 ( 365/ 330- 407/ 396)  14.0 E84-E64 S22-S17
     22  774  245 (S35E44 L=192)   598    134        1 ( 756/ 194- 792/ 321)  37.6 E51-E38 S39-S28
  

    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