Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1471 1798 (N37W70 L=308)   576     50        0 (1449/1775-1492/1821)   0.0 W64-W77 N35-N37
      2 1407 1786 (N39W62 L=299)   396     42        0 (1393/1755-1428/1808)   6.3 W57-W66 N37-N39
      3 1509 1647 (N28W55 L=292)   393    104        0 (1456/1616-1540/1664) -51.3 W52-W57 N25-N30
      4 1716 1494 (N13W62 L=300)  1670    206        3 (1607/1453-1807/1546) -34.5 W54-W72 N07-N18
      5 1042 1363 (N26W10 L=247)   551    137        2 ( 977/1319-1100/1408) -54.5 W07-W12 N22-N29
      6 1074 1267 (N19W09 L=246)   451    165        0 ( 996/1240-1148/1287) -18.4 W04-W13 N17-N20
      7 1626 1151 (S02W39 L=276)   725    147        1 (1600/1072-1651/1213)  50.2 W36-W42 S05-N01
      8 1090 1080 (N09W05 L=242)   295    139        0 (1056/1022-1125/1145)  39.8 W01-W08 N06-N11
      9  336 1070 (N25E45 L=192)   306     43        1 ( 307/1047- 358/1094) -26.6 E47-E43 N23-N26
     10  270  915 (N17E54 L=184)   583    112        0 ( 236/ 866- 302/ 951) -63.4 E57-E51 N13-N19
     11 1872  879 (S26W57 L=295)   894    110        1 (1826/ 854-1909/ 910) -18.4 W51-W63 S28-S23
     12  202  857 (N14E63 L=174)   889    117        4 ( 175/ 802- 220/ 909)  54.5 E67-E60 N10-N17
     13  476  857 (N10E37 L=200)   425    101        0 ( 448/ 817- 506/ 903) -80.5 E38-E35 N06-N12
     14  258  783 (N09E58 L=179)   682     77        1 ( 221/ 738- 297/ 808) -53.1 E62-E53 N06-N10
     15  446  554 (S07E50 L=188)   534    107        0 ( 401/ 507- 477/ 596) -71.6 E51-E47 S10-S04
     16 1447  429 (S42W12 L=249)  2699    483        2 (1273/ 294-1646/ 574)  11.3 E04-W31 S48-S36
     17 1205  525 (S27E02 L=235)   353     87        0 (1186/ 489-1226/ 573)  80.5 E03-E01 S29-S23
     18  656  487 (S16E37 L=200)   975    217        2 ( 591/ 413- 723/ 555) -60.9 E40-E33 S21-S11
     19  799  434 (S22E30 L=207)   516     96        0 ( 760/ 402- 833/ 474)  15.9 E33-E26 S24-S19
     20  384  365 (S19E72 L=166)   933     48        1 ( 363/ 335- 404/ 391)  18.4 E82-E65 S22-S17
     21  771  235 (S36E46 L=192)   507    121        0 ( 755/ 194- 787/ 304)  42.0 E51-E40 S39-S30
  

    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