Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1682 1582 (N27W56 L=299)   476     69        0 (1660/1558-1705/1600) -45.0 W53-W58 N25-N28
      2  321 1414 (N30E48 L=195)  1075    274        2 ( 253/1374- 394/1467) -25.0 E56-E40 N26-N34
      3 1208 1439 (N22W16 L=259)   507    200        0 (1110/1417-1310/1462)  -4.4 W09-W22 N21-N23
      4  838 1313 (N18E09 L=234)   264     61        1 ( 806/1297- 878/1331) -14.0 E10-E06 N16-N18
      5 1786 1269 (N07W56 L=299)   748    149        1 (1736/1240-1822/1320)  24.0 W50-W59 N05-N09
      6  369 1261 (N19E42 L=201)   368     80        1 ( 350/1223- 387/1311)  90.0 E43-E40 N17-N22
      7  166 1147 (N15E62 L=182)  1229    191        4 ( 138/1097- 207/1193)  32.0 E65-E56 N11-N17
      8 1033 1111 (N04W01 L=245)   196     52        0 (1017/1081-1048/1147) -90.0 W00-W02 N01-N06
      9  160 1061 (N10E63 L=180)  1462    219        4 ( 105/1019- 204/1110)   0.0 E71-E57 N07-N12
     10 1363 1068 (S02W21 L=264)   461     87        0 (1317/1045-1418/1096) -18.4 W18-W24 S03-N00
     11 1194  865 (S12W09 L=252)   336     48        1 (1173/ 836-1215/ 897)  56.3 W07-W10 S13-S10
     12 1827  786 (S22W56 L=299)  1406    133        4 (1783/ 718-1862/ 871)  56.3 W52-W59 S26-S17
     13  336  759 (S10E49 L=194)   276     46        1 ( 324/ 729- 348/ 789) -90.0 E50-E48 S12-S08
     14 1205  709 (S22W08 L=252)   455    154        0 (1146/ 634-1270/ 789)  45.0 W04-W12 S26-S17
     15  993  730 (S18E05 L=238)   418     79        2 ( 964/ 684-1019/ 776)  80.5 E06-E03 S21-S15
     16 1067  700 (S21E00 L=243)   203     65        0 (1039/ 671-1086/ 731)  56.3 E02-W00 S22-S19
     17  176  634 (S16E72 L=171)  1070     90        0 ( 159/ 588- 198/ 670) -78.7 E74-E69 S18-S13
     18  347  608 (S19E53 L=191)   541     93        1 ( 326/ 574- 372/ 646)  63.4 E55-E49 S21-S17
     19  367  509 (S26E55 L=188)   833    146        2 ( 332/ 471- 410/ 548)  18.4 E58-E49 S28-S23
     20 1305  365 (S47W16 L=259)   645     96        0 (1250/ 340-1346/ 403)  12.5 W10-W19 S49-S44
     21  973  344 (S45E13 L=230)   498     94        1 ( 939/ 313- 999/ 390)  39.8 E16-E09 S47-S41
  

    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