Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  323 1612 (N11E71 L= 21)  1161    250        2 ( 287/1560- 349/1644) -33.7 E77-E65 N07-N13
      2 1051 1456 (N18E11 L= 82)   750    203        1 (1029/1359-1074/1555) -63.4 E13-E06 N12-N24
      3 1416 1480 (N31W10 L=103)   707    145        1 (1388/1420-1443/1551) -49.4 W07-W13 N28-N35
      4 1174 1441 (N21E03 L= 89)   235     46        0 (1141/1422-1201/1458)   0.0 E05-E01 N19-N21
      5 1246 1317 (N16W04 L= 97)   558    153        0 (1214/1245-1267/1400) -53.1 W00-W06 N11-N19
      6  166 1274 (S12E70 L= 23)  1158    232        3 ( 129/1230- 199/1333) -56.3 E74-E66 S14-S08
      7 1768 1098 (N20W45 L=137)   547    115        1 (1733/1069-1811/1121)  39.8 W41-W48 N17-N22
      8 1048 1031 (S06W01 L= 94)   348     66        0 (1022/ 991-1073/1072)  90.0 W00-W02 S08-S02
      9  393  863 (S32E37 L= 56)  2957    626        9 ( 209/ 748- 541/1013)  42.7 E54-E27 S43-S19
     10 1748  907 (N09W48 L=141)   529    118        2 (1715/ 877-1788/ 937)  51.3 W45-W51 N06-N11
     11 1793  763 (N03W58 L=151)  1236    327        2 (1680/ 729-1874/ 818)  32.0 W48-W65 S01-N09
     12  755  708 (S32E07 L= 85)  1040    253        0 ( 679/ 614- 847/ 815)  72.6 E10-E03 S39-S23
     13 1098  714 (S21W13 L=106)   792    216        1 ( 980/ 663-1179/ 778)  54.0 W07-W15 S26-S15
     14 1365  701 (S14W29 L=122)   335    129        2 (1323/ 664-1423/ 745)  -6.3 W25-W34 S15-S12
     15 1691  563 (S10W59 L=151)  2164    366        2 (1594/ 478-1789/ 681)  66.4 W54-W63 S17-S01
     16 1306  637 (S19W28 L=121)   454    116        0 (1248/ 603-1368/ 671)  50.2 W25-W31 S22-S15
     17 1131  556 (S29W21 L=114)   259     79        0 (1091/ 544-1176/ 570)  45.0 W18-W23 S30-S26
     18 1742  535 (S10W66 L=159)   652     90        2 (1722/ 502-1771/ 558)  63.4 W63-W69 S11-S07
     19 1403  379 (S30W48 L=140)  2086    301        4 (1278/ 337-1520/ 434)  49.8 W40-W53 S36-S22
     20 1573  354 (S25W62 L=154)   494     53        0 (1551/ 329-1601/ 373)  76.0 W59-W63 S26-S22
  

    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