Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1109 1615 (N40W23 L=127)   992    190        2 (1066/1555-1166/1704)  61.4 W19-W29 N35-N46
      2 1311 1668 (N38W41 L=145)   384     73        0 (1278/1649-1349/1687)   0.0 W37-W45 N36-N38
      3 1534 1649 (N30W57 L=162)   736     98        2 (1485/1623-1586/1673)  -9.5 W51-W63 N28-N31
      4 1696 1536 (N19W64 L=168)   768    117        1 (1639/1498-1746/1565) -24.4 W59-W70 N16-N21
      5 1169 1396 (N25W18 L=122)  1052    277        2 (1088/1335-1252/1488) -72.9 W14-W21 N19-N32
      6 1801 1465 (N11W72 L=176)   742     44        0 (1774/1439-1829/1485) -20.6 W67-W76 N09-N12
      7 1732 1439 (N12W61 L=165)   932     98        0 (1699/1379-1755/1482)  74.1 W58-W64 N08-N15
      8  936 1289 (N24W01 L=105)   243     72        0 ( 903/1264- 969/1312) -63.4 E01-W02 N22-N26
      9  555 1261 (N30E26 L= 78)   333     81        1 ( 523/1224- 589/1286) -51.3 E28-E23 N27-N32
     10  225 1138 (N28E58 L= 46)  1046    163        1 ( 194/1061- 267/1203) -59.0 E63-E52 N22-N32
     11  632 1136 (N21E22 L= 82)   203     50        0 ( 608/1116- 662/1158) -45.0 E23-E20 N19-N23
     12  875 1064 (N13E08 L= 97)   215    102        0 ( 862/1023- 894/1112)  53.1 E08-E05 N09-N14
     13 1135 1048 (N06W07 L=111)   606    239        0 (1052/ 992-1198/1098) -48.8 W02-W09 N01-N09
     14 1301  991 (S01W15 L=120)   267     85        0 (1257/ 975-1346/1016)   0.0 W12-W18 S01-N00
     15  359  916 (N13E46 L= 59)  1134    302        2 ( 305/ 835- 418/ 989)  38.7 E51-E39 N08-N16
     16 1892  878 (S24W62 L=167)  2739    254        3 (1830/ 767-1938/ 980)  35.5 W53-W72 S29-S19
     17  164  849 (N11E69 L= 35)  1768    167        3 ( 126/ 772- 195/ 926) -59.0 E74-E65 N05-N15
     18 1522  876 (S13W27 L=131)   281     55        1 (1493/ 855-1556/ 891)   0.0 W24-W29 S14-S11
     19  860  818 (S01E14 L= 91)   284     71        1 ( 844/ 774- 882/ 853)  56.3 E14-E12 S03-N00
     20 1679  804 (S22W38 L=142)   440    175        0 (1609/ 763-1711/ 835)   6.3 W31-W40 S23-S19
     21 1322  771 (S14W12 L=116)   310     59        2 (1302/ 738-1348/ 804)  76.0 W10-W13 S15-S11
     22 1437  736 (S19W19 L=123)   576    168        3 (1357/ 712-1507/ 763) -16.7 W13-W23 S21-S16
     23 1241  679 (S18W05 L=110)   456    188        0 (1207/ 611-1289/ 762)  84.8 W03-W07 S23-S12
     24 1667  718 (S27W36 L=140)   374     77        0 (1642/ 687-1693/ 747)  31.0 W33-W38 S28-S25
     25 1491  556 (S33W20 L=125)   409     60        1 (1455/ 532-1523/ 575) -21.8 W17-W22 S34-S30
     26  661  497 (S17E35 L= 69)   764    163        1 ( 597/ 439- 713/ 566)  26.6 E42-E30 S20-S13
     27 1182  368 (S38E06 L= 98)  4138    666        5 ( 931/ 243-1419/ 517)  11.0 E29-W13 S42-S32
     28  532  453 (S18E47 L= 57)   565     86        1 ( 492/ 427- 566/ 480) -36.9 E49-E43 S19-S15
     29 1263  160 (S64E10 L= 94)   698     69        0 (1228/ 144-1302/ 178)   0.0 E15-E04 S67-S61
  

    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