Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  677 1705 (N24E45 L=240)   891    113        1 ( 628/1676- 739/1730)   0.0 E49-E38 N21-N25
      2 1342 1618 (N38W02 L=286)  1276    363        1 (1192/1539-1500/1700)   0.0 E11-W15 N36-N40
      3  383 1518 (N06E57 L=227)   775     90        3 ( 342/1470- 416/1555) -80.5 E60-E53 N02-N08
      4  784 1452 (N11E26 L=259)   866    232        1 ( 711/1359- 858/1553) -28.1 E33-E18 N07-N15
      5  215 1276 (S11E63 L=221)   428     77        0 ( 197/1238- 229/1315)  90.0 E64-E61 S13-S08
      6 1631 1235 (N23W31 L=315)   303     75        0 (1596/1209-1669/1260)   0.0 W27-W34 N22-N24
      7  133 1112 (S22E71 L=214)   879    112        1 ( 108/1057- 168/1164)  41.2 E75-E65 S25-S18
      8 1810 1001 (N16W51 L=335)   320     46        2 (1784/ 979-1831/1029)   0.0 W48-W53 N14-N18
      9 1343  975 (S00W19 L=303)   234     57        0 (1313/ 955-1369/1001)  45.0 W17-W20 S01-N01
     10  885  944 (S14E05 L=279)   276     50        1 ( 859/ 919- 913/ 971)  45.0 E06-E03 S16-S12
     11 1879  861 (N11W64 L=348)   934     91        1 (1859/ 826-1901/ 922) -80.5 W60-W68 N09-N15
     12 1246  785 (S13W19 L=303)   415    164        0 (1202/ 728-1281/ 862) -32.0 W14-W22 S15-S10
     13 1911  803 (N10W71 L=356)   759     64        3 (1889/ 776-1934/ 828)  45.0 W67-W77 N07-N11
     14 1146  709 (S20W16 L=300)   343    130        0 (1081/ 694-1209/ 723)  23.2 W12-W19 S21-S18
     15 1848  701 (N02W67 L=352)   740     73        0 (1809/ 680-1886/ 722)  20.0 W62-W73 N00-N04
     16  279  653 (S48E52 L=232)   470     60        0 ( 249/ 640- 316/ 671)   5.2 E57-E46 S49-S46
     17 1043  641 (S27W13 L=297)   415    140        0 ( 975/ 609-1115/ 660)   6.3 W08-W17 S28-S25
     18 1563  502 (S18W52 L=336)  1132    218        1 (1467/ 450-1660/ 542)  42.3 W47-W59 S23-S13
     19  727  459 (S48E01 L=283)   448     43        1 ( 690/ 435- 757/ 484)  21.8 E04-W01 S49-S46
     20 1003  367 (S45W24 L=308)   338     94        0 ( 968/ 343-1054/ 395)   6.3 W19-W28 S45-S43
     21 1506  290 (S30W67 L=351)   664     74        2 (1476/ 264-1540/ 319)   3.8 W60-W75 S31-S29
  

    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